Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: yovaninu en 13 Agosto 2009, 06:19 AM
a manera de aporte te sugiero que para concatenar las cadenas uses el simbolo "&"(ampersand) y no el signo mas.
Cita de: jackl007 ツ en 8 Agosto 2009, 22:11 PM
Seguro que lo has registrado como administrador?
Has esto:
entra a Inicio, y en el buscador coloca: cmd;
luego a la aplicacion cmd.exe dale click derecho y abrir como administrador; ahora ya tienes corriendo la consola en modo admin y coloca el comando para registrarlo y listo.
saludos
Option Explicit
Public CN As ADODB.Connection 'Variable para la conexion a la BDD
'-------------------------------------------------------------------------------------------------------------
'\\ -- Sub para conectar la Base de Datos
'-------------------------------------------------------------------------------------------------------------
Sub Conectar()
Dim RST As New ADODB.Recordset
Set CN = New ADODB.Connection
Set RST = New ADODB.Recordset
With CN
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
App.path & "\LaBaseDeDato.mdb" & ";Persist Security Info=False"
.CursorLocation = adUseClient
.Open
End With
End Sub
Option Explicit
Dim RSTabla As New ADODB.Recordset
Sub ConectarTabla()
Set RSTabla = New ADODB.Recordset
With RSTabla
.CursorLocation = adUseClient
.Open "Select * From NombreTabla", CN, adOpenStatic, adLockOptimistic
End With
End Sub
Private Sub Form_Load()
Call Conectar 'Conctamos la BDD
Call ConectarTabla
Set DataGrid1.DataSource = RSTabla
DataGrid1.Refresh
End Sub