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?

[ContraVeneno]

Yo no te recomendaría que generas una tabla por cada mes. Siento que tienes un problema de diseño o de concepto en tu base de datos.

Lo más recomendable sería tener una sola tabla donde guardes estos registros. Existen muchas funciones muy buenas que te ayudan a filtrar por meses sin ningún problema. Las funciones datediff, convert, month, year y muchas otras que ya existen en SQL Server, tienen la posiblidad de filtrar fechas de todas las formas que se te puedan ocurrir. No es necesario que generes una tabla por cada mes y si lo haces, vas a tener que hacer muchas cosas que no tendrías que hacer; vamos, que te la estas complicando demasiado.

Simplemente con pensar que tendrías que hacer para sacar un reporte anual, tendrías que juntar por medio de un Query, 12 tablas, tendrías que hacer una función para determinar el nombre de cada tabla y luego hacer toda la consulta utilizando "union all" para 12 tablas ( y eso solo para empezar). En cambio, al tenerlo todo en una sola tabla, solo bastaría un "Where year(FechaMovimiento) = 2009" y listo.

[Alexandro]

Hola de nuevo ContraVeneno:
Si, la verdad es que tienes razon, no había analizado esa posibilidad. Pero, no se como trabajan esas nuevas funciones de las que me hablas. Quizas te paresco algo tedioso pero mi conocimiento no es tan alto aun.
Me podrias decir como funcionan?

[ContraVeneno]

No son nuevas, han existido en SQL Server desde hace mucho tiempo, son funciones como las puedes encontrar en cualquier manejador de bases de datos o en delphi.

Y no hay porque alarmarse, nadie nació sabiendo todo y por eso aquí estamos, para aprender. Si tienes alguna duda, lo mejor es preguntar .

Lo más sencillo, es consultar la documentación y/o la ayuda de tu programa, tanto Delphi como SQL Server, tienen muy buena documentación a la que puedes acceder presionando F1. Ya sea delphi o SQL Server, vas a encontrar la explicación y hasta ejemplos.

Solo recuerda, cuando quieras hacer algo, lo más seguro es que ya exista una función para eso.

[Alexandro]

10000000000000000000 de gracias hermano.
Ya he encontrado algo de las funciones de las que me hablas.
Suerte