Problema al Enlazar Datagrid con RS

[antonio2005pe]

hola amigos kisiera saber por k me bota error cuando le digo Set DataGrid1.RecordSource = RS cada vez k hago una consulta, aki esta mi codigo:

Código:

Dim CN As New ADODB.Connection
Dim RS As New ADODB.Recordset

Private Sub Command1_Click()
CN.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=BD;Data Source=SERVIDOR"
CN.Open

RS.CursorLocation = adUseClient
RS.LockType = adLockOptimistic
RS.ActiveConnection = CN
RS.Open "SELECT * FROM CLIENTES"
 
Set DataGrid1.DataSource = RS 'Aki Enlaza normalmente
End Sub

Private Sub Command2_Click()
sql = "select * from clientes where doc_id='" & Text1.Text & "'"
Set RS = CN.Execute(sql)
Set DataGrid1.DataSource = RS 'Pero aki me bota error :@ :(
End Sub

Gracias...

[jrp01]

Que error te pone?

[antonio2005pe]

me sale esto:
Error 7004 en tiempo de ejecucion
El conjunto de filas no admite marcadores

[jrp01]

Pon el recordset Rs.CursorType = adOpenStatic
Rs.LockType = adLockBatchOptimistic

[antonio2005pe]

Me Sale EL Mismo Error No Se Por K :(

[jrp01]

Cambia el cursor:
Rs.CursorLocation = adUseClient

[antonio2005pe]

Gracias jrp01
ya probe, no se k es lo que pasa pero me sigue saliendo el mismo error, la consulta sql carga al rs pero no puedo enlazarlo al datagrid...

[antonio2005pe]

Alguien tiene alguna idea de donde puede estar el error?
o estoy usando algo inapropiado?

[antonio2005pe]

ya lo solucione se me olvido poner :

Código:

Set CN = New ADODB.Connection
Set RS = New ADODB.Recordset

pero sigo no podiendo hacer esto

Código:

set rs = cn.execute(sql)
set datagrid1.datasource = rs
'me sigue saliendo error :(

Muchas Gracias...

[quimeragotica]

Iniciado por antonio2005pe

hola amigos kisiera saber por k me bota error cuando le digo Set DataGrid1.RecordSource = RS cada vez k hago una consulta, aki esta mi codigo:

Código:

Dim CN As New ADODB.Connection
Dim RS As New ADODB.Recordset

Private Sub Command1_Click()
CN.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=BD;Data Source=SERVIDOR"
CN.Open

RS.CursorLocation = adUseClient
RS.LockType = adLockOptimistic
RS.ActiveConnection = CN
RS.Open "SELECT * FROM CLIENTES"
 
Set DataGrid1.DataSource = RS 'Aki Enlaza normalmente
End Sub

Private Sub Command2_Click()
sql = "select * from clientes where doc_id='" & Text1.Text & "'"
Set RS = CN.Execute(sql)
Set DataGrid1.DataSource = RS 'Pero aki me bota error :@ :(
End Sub

Gracias...

Me parece que doc_id debe ser númerico, entonces la sentencia sql va sin comillas' ', así: sql = "select * from clientes where doc_id=" & Text1.Text

[-rommel_]

Pero amigo me imagino que te sale error cuando presionas PRIMERO el BOTON Nro 2... ya que cuando presionas PRIMERO el BOTON Nro 1 es ahi donde te hace la CONEXION!... porque no en el LOAD del Form creas un SUB llamado ConectarBD() y l eenvias tu cadena de conexion y en cada COMMAND le envias a la funcion ConsultarBD(cn, strSQL), donde strSQL y es tu consulta SQL :D a ver pruebalo... hazlo de nuevo y si no te sale ya estaremos aqui para darte mas respuestas :D... Saludos...