Visual Basic - Bases de Datos (principiante)

Life is soft - evento anual de software empresarial
 
Vista:

Bases de Datos (principiante)

Publicado por Monserrat (3 intervenciones) el 27/09/2004 20:42:41
Estoy haciendo una aplicación para control de corte de caja, facturas,estado de cuenta, para ello necesito dar de alta, baja y busqueda de clientes, pero únicamente lo he intentado con Access y controles ADO, necesito que me orienten, ¿de que manera puedo hacerlo? ya que soy principiante en este lenguaje de programación. El problema que tengo es que solo o puedo hacer con las tablas de ejemplo, no con las que yo he creado, me indica un error de versión de Access, además no se si pueda crear tablas en tiempo de ejecución, por favor necesito ayuda
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Bases de Datos (principiante)

Publicado por miguel (1042 intervenciones) el 27/09/2004 21:21:16
Bueno si vas a trabajar con una base de DATOS DE ACCESS 2000, y con ADO debes de activar esta referencia:
Microsoft ActiveX Data Objects 2.0 Library o la version que tengas
y para conectarte:
Dim Rec As ADODB.Recordset
Dim sql As String
Dim cnbase As ADODB.Connection
Sub Conectar()
Dim Ruta As String
Dim NomBase As String
NomBase = "BaseDatos.mdb" 'Nombre de la BD de ACCESS
Ruta = App.Path & "\" & NomBase 'Direccion donde se encuentra tu BD de ACCESS
Conexion = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & Ruta & ""
Set cnbase = New ADODB.Connection
cnbase.ConnectionString = Conexion
cnbase.Open Conexion
Set Rec = New ADODB.Recordset
End Sub
Sub CrearTabla()
cnbase.Execute "CREATE TABLE GRUPO " _
& "(clv_grupo COUNTER, grado TEXT(2), clv_maestro LONG, " _
& "CONSTRAINT clv_grupo PRIMARY KEY (clv_grupo))"
End Sub
Si deseas consultar esta Tabla
Sub Consulta()
Sql="Select * From GRUPO"
Rec.Open sql, cnbase
If Rec.RecordCount > 0 Then
Text1=Rec!clv_grupo
Text2=Rec!clv_maestro
Else
Msgbox "No Tiene Registro"
End If
End Sub
Sub Registro()
If Rec.State = adStateOpen Then Rec.Close
Rec.CursorLocation = adUseClient
Rec.CursorType = adOpenDynamic
Rec.LockType = adLockOptimistic
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Bases de Datos (principiante)

Publicado por Monserrat (3 intervenciones) el 30/09/2004 19:16:16
Gracias por la ayuda
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar