preenchendo DataGrid...

[birobirosk8 0]

geeeeeeeeeeente... ta dificil, desde ontem tentando fazer isso ake !!!

num ta certo abaixo ???

 

Public Sub listCartorio_Click()	Dim intCodFuncionario As Integer	intCodFuncionario = listCartorio.ItemData(listCartorio.ListIndex)		If (IsNumeric(listCartorio.ItemData(listCartorio.ListIndex))) Then		intCodFuncionario = CInt(listCartorio.ItemData(listCartorio.ListIndex))					strNomeCartorio = txtPesquisa.Text		Dim strConn As String		strConn = "Provider=SQLOLEDB.1;Password=xxxxxx;Persist Security Info=True;User ID=sa;Initial Catalog=BDCspCNB;Data Source=192.168.200.6"		Set objConn = New ADODB.Connection		objConn.Open (strConn)					Dim objRs As ADODB.Recordset		Set objRs = New ADODB.Recordset		strSql = "select idFuncionario, nome, cargo from tblFuncionarios where "		strSql = strSql & "idCartorio = " & intCodFuncionario		objRs.Open strSql, objConn					If (objRs.EOF) Then		Else			Set dgFuncionario.DataSource = objRs			dgFuncionario.Refresh		End If					objRs.Close		Set objRs = Nothing		objConn.Close		Set objConn = Nothing	End IfEnd Sub

ta dando o erro:

"the rowset is not bookmarkable"

na linha

Set dgFuncionario.DataSource = objRs

faloooow, obrigado !!!

[Graymalkin 0]

Experimente definir a propriedade CursorLocation da conexão e do recordset como adUseClient.Abraços,Graymalkin