[SOURE] Formulario ABM con SQL Server 2000 y ADO

[ssccaann43]

Bien, seguro muchos conocen este proyecto...



Bien, he decidido armar este proyecto con algunos cambios ya que un amigo lo necesitaba...
Aqu� un screen con los cambios...


Pasos a seguir, para usarlo...

1ero. Antes de abrir el proyecto, ejecuta el .bat REGISTRAR. Para registrar las librer�as que contiene el proyecto.

2do. Debes crear una BD usando el Administrador corporativo de SQL Server. La base de datos llamala BD.

3ero. Luego de tener la BD creada, abres el analizador de consulta, seleccionas la BD que creaste y subes el Script que te adjunto en el proyecto, se encuentra en el Directorio BD.

4to. Luego de ejecutar el Script, debes Restaurar la BD usando el Administrador Corporativo. Te posicionas en la BD, haces click secundario, le das a todas las tareas, restaurar base de datos, seleccionas alli la opcion Desde Dispositivos, luego haces click en dispositivos, le das a agregar y buscas el .BAK que esta tambien en el directorio BD.

5to. Luego de hacer la restauraci�n, puedes hacer uso del programa. Incluso hasta ver los reportes.

Saludos, y espero les sea de gran utilidad...!

Bajar Aqu�

[wolf_kof]

Claro que si el code esta super bien 

[ssccaann43]

Gracias, espero le des un excelente uso y puedas armar bien tú software sin problemas...

[omarinho23]

ssccaann muy buen codigo! esta bravo!!  pero quisiera hacerte una consulta

si mira quisiera agregar otro dato q apareceria en otro form

se q tienes frmedit yap imagina q sacas otro cuadro de ahi para agregar datos diferentes a la base de datos

como lo harias q codigo pondrias!

[ssccaann43]

Explicame que quieres hacer y lo armamos...!

[omarinho23]

haber mira! ya tienes el form de modificacion e ingreso (frmedit) y quieres agregar mas datos a una tabla osea a es frmedit habra dos botones ya y cada boton sera haber frmedit1 y frmedit2 y cada edit1 y edit2 tiene datos para agregar diferentes! no se si me entiendes la cosa es conectar esos edit1 y edit2 a la bd para q las agregen!

no se si me entiendes

[ssccaann43]

No, no te entiendo... con FrmEdit, puedo editar todo lo que quiero... Si agrego más campos a la Base de Datos, tan sencillo que agrego más controles al frmEdit y ya...!

[omarinho23]

es q no es solo agregar mas campos al edit ... si no te digo q varia segun lo q se agrega pue... imaginemos q los campos q estan en edit son

nombre
direc
telefono

y el botonedit1 saca a edit1 los siguientes datos nuevos para agregar a la bd

cliente
pedido
ruc

y el botonedit2 saca a edit2 otros datos diferentes para agregar a la bd

razon de cancelacion
detalles

no se si me entiendes asi?

[NolO]

Uhmmm quieres usar el mismo formulario para hacer un mantenimiento a otras tablas?

Bueno eso es lo que trato de entender...

[raul338]

Creo  q omarinho23 esta tratando de decir es hacer el frmEdit "dinamico". Modificar la estructura de la base de datos en tiempo de ejecucion y que el ABM se adapte a la nueva estructura. Es buena idea

[ssccaann43]

No, ya entendi... El habla de hacer nuevas tablas con nuevos formularios... omarinho23, es sencillo... Creas tu tabla... Armas tu formulario y haces la conexion... Más nada... Simple...!

[omarinho23]

mira yo e tratado de hacer una conex... pero la verdad no puedo conectar con la q necesito :S

como podrias hacer tu el codigo :S

Código: [Seleccionar]

Private Sub Form_Load()
   

    ' establece la cadena de conexión a utilizar en la propiedad ConnectionString
    CNN.ConnectionString = "Provider=SQLOLEDB.1;Password=qweqwe;Persist Security Info=True;User ID=omar;Initial Catalog=BASEFINAL;Data Source=SERVIDOR"
   
    ' abre la base de datos
    CNN.Open
   
    ' Abre el recordset enviando la consulta sql
    rs.Open "Select * from clientes", CNN, adOpenDynamic, adLockOptimistic
    ' muestra los datos en los text
    Command1.Enabled = False

End Sub
Private Sub cmdSave_Click()
    Select Case ACCION
    Case editar_registro
        CNN.Execute "UPDATE Clientes set razonsocial = '" & Text1(0) & "', direccion = '" & Text1(1) & "', nºdeplaca = '" & Text1(2) & "', marca = '" & Text1(3) & "', modelo = '" & Text1(4) & "', carroceria = '" & Text1(5) & "', colores = '" & Text1(6) & "', nºcilindros = '" & Text1(7) & "', pesoneto = '" & Text1(8) & "', cargautil = '" & Text1(9) & "', pesobruto = '" & Text1(10) & "', longitud = '" & Text1(11) & "', ancho = '" & Text1(12) & "', altura = '" & Text1(13) & "', clase = '" & Text1(14) & _
                                     "', añofabrica = '" & Text1(15) & "', combustible = '" & Text1(16) & "', nºejes = '" & Text1(17) & "', nºdemotor = '" & Text1(18) & "', nºdeserieochasis = '" & Text1(19) & "', nºpasajeros = '" & Text1(20) & "', nºasientos = '" & Text1(21) & "', nºruedas = '" & Text1(22) & "', formula = '" & Text1(23) & "', categoria = '" & Text1(24) & "', potencia = '" & Text1(25) & "', detalle1 = '" & Text1(28) & "', detalle2 = '" & Text1(29) & "', fecha = '" & Text1(30) & "', modificacion = '" & Text2 & "', montaje = '" & Text3 & "', fabricacion = '" & Text4 & _
                                     "' where Cod = " & IdRegistro & ""

      End Select
    DoEvents
    Unload Me
    Set FrmEditClau = Nothing
Exit Sub
ErrorSub:
MsgBox Err.Description
End Sub

este es mi codigo pero igual no me graba!