Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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 !!!
Carregando comentários...
