Como puedo crear tablas en SQL SERVER

[Alexandro]

SAlu2 a todos:
Uso delphi 7, componentes ADO y me conecto a un servidor SQL. Ahora bien, mi programa es una BD que trabaja 1 vez al mes, en el se guardan varios datos dentro de una tabla. Resulta que es un poco engorroso todos los mese conectarse a la misma tabla, ya que en ella hay cientos de registros.
Yo quiero que el usuario cuando valla a introducir los datos al mes correspondiente cree una nueva tabla con los mismos campos que la del mes anterior.
Yo puse un ADOQuery en un DAtamodule e hice esto como prueba:

Código Delphi [-]
Modulo_Conexion.Query_CreaTablas.Close;
Modulo_Conexion.Query_CreaTablas.SQL.Add('CREATE TABLE Prueba.db (Nombre CHAR(20))');
Modulo_Conexion.Query_CreaTablas.Open;

Me da este error:
Specified owner name Prueba either does not exist or you do not have permission to use it.
Algguien me puede hechar una mano en esto?

[droguerman]

yo probaria a poner el nombre entre corchetes [Prueba.db], aunque apuesto a que el error se debe a que el usuario con el que te conectas no tiene permisos para crear tablas.

Por cierto una forma fácil (pero tonta de crear una tabla a partir de otra es)

Código SQL [-]
  SELECT TOP 0 * INTO origen FROM destino;

Es tonta porque no copia claves primarias o foráneas.

Pregunta: Y porque pones el .db en el nombre? Estás creando una tabla, no un archivo

saludos

[Alexandro]

Bueno, ahora arreglé algo, puse los permisos en el Enterprise Manager de maner que el usuario pueda Crear, Modificar, Borrar...etc
Resulta que ahora me crea la tabla pero me da este error
Query_CreaTablas: CommandText does not return a result set
A que se debe esto?

[droguerman]

Lo que sucede es que estás usando un adoDataset para ejecutar tu orden, el cual espera que cuando llame a open devuelva uno o más registros, Debes hacerlo mediante el método execute de un AdoCommand, o del mismo AdoConnection

[Alexandro]

Disculpa, podrias explicarte mejor por favor

[ContraVeneno]

en lugar de "Open", pon "ExecSQL"

[Alexandro]

ok Ya me salio.
Muchas gracias.
Esto es lo que hice:

Código Delphi [-]
Modulo_Conexion.Query_CreaTablas.Close;
Modulo_Conexion.Query_CreaTablas.SQL.ADD('CREATE TABLE "Prueba" (Nombre CHAR(20))');
Modulo_Conexion.Query_CreaTablas.ExecSQL;

[Alexandro]

Hola de nuevo:
Miren La tabla se crea sin singun problema, pero cuando me puse a pensar yo necesito que la tabla de Febrero se llame por ejemplo Tbl_Estimulacio022009
Yo pongo esto:

Código Delphi [-]
Procedure TFrm_Principal.BitBtn2Click(Sender: TObject);
var
  Nueva_Tabla:String;
  Mes, Anno:Integer;
begin
Mes:=MonthOf(Date);
Anno:=YearOf(Date);
Nueva_Tabla:='Tbl_Estimulacion_'+IntToStr(Mes)+IntToStr(Anno);
Modulo_Conexion.Query_CreaTablas.Close;
Modulo_Conexion.Query_CreaTablas.SQL.Add('CREATE TABLE "Tbl_Estimulacion" (Nombre CHAR(20))');
//Modulo_Conexion.Query_CreaTablas.Parameters.ParamByName('valor').Value:=Nueva_Tabla;
Modulo_Conexion.Query_CreaTablas.ExecSQL;
end;

Comom puedo indicarle al Query que asume como nombre lo que esta en la variable Nueva_Tabla?