Adrian
06 de Mayo del 2004

hola a todos
soy principiante en esto
estoy programando en ado, quiero conectar una base de datos y abrir una tabla con recordset, lo estoy haciendo asi pero no funciona:
'esto en general
Dim DBporteria As New Connection
Dim rsPersona As New Recordset

y en load del form esto:

DBporteria.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "Porteria.mdb"
rsPersona.Open "Persona", DBporteria, adOpenKeyset, adLockOptimistic, adCmdText

mi base de datos esta en el directorio c:porteria1porteria.mdb

gracias de antemano

al
06 de Mayo del 2004

si pero cuando abres la base de datos?

Adrian
06 de Mayo del 2004

vaya vaya Fabian te explayaste, pero como usas los dsn y donde abres la base de datos,?????
Saludos y gracias por responder.

sdemingo
06 de Mayo del 2004

Hola,

Private Sub Form_Load()

Dim oConexion As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim ruta As String
Dim strSql As String


ruta = "c:porteria1porteria.mdb"

oConexion.Provider = "Microsoft.Jet.OLEDB.4.0"
oConexion.Open ruta

strSql = "select * from Persona"
rs.Open strSql, oConexion, adOpenStatic, adLockOptimistic

If rs.RecordCount <> 0 Then
Do While Not rs.EOF
MsgBox rs("NombreCampo") 'nombrecampo es el nombre un campo en tu tabla personas
rs.MoveNext
Loop
End If
rs.Close
oConexion.Close
End Sub


Para esto tienes que añadir la referencia:
Microsoft ActiveX Data Objects 2.7 Library

salu2
sdemingo

Adrian
06 de Mayo del 2004

Gracias por responder sdemingo :-)
me imagino que funciona, lo voy ha probar
Saludos

Fabian Mestre
06 de Mayo del 2004

create un dsn de sistema en el odbc y listo. ahi te envio un codigo de ejemplo que puede sevirte. Saludos.

Set cnx = New ADODB.Connection
cnx.ConnectionString = "DSN=tunombre;UID=;PWD=;"
cnx.Open
Set coman = New ADODB.Command
Set coman.ActiveConnection = cnx

strsql = ""
strsql = "insert into reportes (codrepor,iac,ferepor,codbanco,cuenta,cupones,valorcupones,inconsistencia) values"
strsql = strsql + " (" & unirep & "," & iac & ",'" & fepago3 & "'," & codbanco & "," & numcuenta & "," & cupones
strsql = strsql + "," & total & "," & incon & ")"
coman.CommandText = strsql
coman.Execute strsql

Fabian Mestre
06 de Mayo del 2004

se me olvidaba, lo que quieres es una consulta, pruebate con esto.

Saludos,

strsql = "select bancos.desbanco as BANCO, reportes.codrepor as REPORTE, reportes.ferepor as FECHA, "
strsql = strsql + "reportes.valorcupones as TOTAL_REPORTE, dptos.desdpto as DEPARTAMENTO, "
strsql = strsql + "repordpto.vldpto as VALOR, negocio.negocio as NEGOCIO"
strsql = strsql + " from reportes,repordpto,dptos,bancos,negocio"
strsql = strsql + " where (reportes.codrepor=repordpto.codrepor and"
strsql = strsql + " repordpto.coddpto=dptos.coddpto and reportes.codbanco=bancos.codbanco "
If Combo1.Text = "Local" Then
strsql = strsql + " and repordpto.codneg=negocio.codneg) and negocio.codneg=1"
End If
If Combo1.Text = "Larga Distancia" Then
strsql = strsql + " and repordpto.codneg=negocio.codneg) and negocio.codneg=6"
End If
If Combo1.Text = "Datos" Then
strsql = strsql + " and repordpto.codneg=negocio.codneg) and negocio.codneg=3"
End If
strsql = strsql + " and (reportes.ferepor between #" & CStr(peri1) & "#" & " and #" & CStr(peri2) & "#)"
Set rs2 = CreateObject("ADODB.Recordset")
rs2.CursorLocation = adUseClient
rs2.Open strsql, "DSN=pagos", adOpenStatic, adLockBatchOptimistic