|
|
Postada em 10/09/2004 09:41 hs
Tenhu um banco de dados em uma maquina. Em ourta maquina estou desenvolvendo o programa q acessa este BD. Até ai tudo bem. Mas quando gero o executavel para colocar nas demais maquinas da empresa, estas tbm acessam o BD só q quando é pedido para mostrar o resultado de uma pesquisa no grid, ele fika em branco.Pq..????
-SeRgYnhU-
|
|
|
|
|
|
|
|
|
|
|
Postada em 10/09/2004 10:16 hs
Este é o Flitro:
Private Sub cmdPesquisar_Click()
Dim SqlTXT
Dim OPstr
If itmParecida.Checked = True Then OPstr = "%"
SqlTXT = "Select * from [tb_dados] where "
If chkNome.Value = 1 Then
SqlTXT = SqlTXT & " [nome] Like '" & OPstr & txtNome.Text & OPstr & "'"
Else
SqlTXT = SqlTXT & " [nome] like '%'"
End If
frmLocalizar.Hide
frmresultPes.Show
frmresultPes.LoadSql (SqlTXT)
End Sub E este é o GRID: Public Sub LoadSql(SqlStr As String)
adoDados.Visible = False
adoDados.ConnectionString = "provider=microsoft.jet.oledb.4.0; Data Source=" & frmAgenda.DBname
adoDados.RecordSource = SqlStr adoDados.Mode = adModeReadWrite
adoDados.Refresh
dtaGrid1.Refresh
End Sub Private Sub dtaGrid1_load()
adoDados.Visible = False
adoDados.ConnectionString = "provider=microsoft.jet.oledb.4.0; Data Source=" & frmAgenda.DBname
adoDados.RecordSource = SqlStr adoDados.Mode = adModeReadWrite
adoDados.Refresh
dtaGrid1.Refresh
End Sub |
|
|
|
|
|
Postada em 10/09/2004 11:49 hs
|
|
|
|
|
|
Postada em 10/09/2004 11:57 hs
Private Sub dtaGrid1_load()
adoDados.Visible = False adoDados.close
adoDados.ConnectionString = "provider=microsoft.jet.oledb.4.0; Data Source=" & frmAgenda.DBname
adoDados.RecordSource = SqlStr adoDados.open
Set dtaGrid1.DataSource = Nothing SET dtaGrid1.DAtaSource = adoDados dtaGrid1.Refresh
End Sub Tenta Assim
 Eu sou o alfa e o ômega, o princípio e o fim, diz o Senhor, que é, e que era, e que há de vir, o Todo Poderoso. (Ap 1.8) 
|
|
|
|
