lcortereal
Power Member
Boas, estou a fazer um projecto em VB2008, que basicamente servirá para empresas de figurantes. O programa e baseado numa Form onde se adicionam novas pessoas na base de dados (nome, altura, dade de nascimento, etc), e depois tenho outra Form para pesquisar pessoas na base de dados.
Ja consegui fazer a primeira form (adicionar pessoas para a BD), mas agora estao me a surgir problemas ao fazer o search.
No form do search tenho um Textbox chamado txt_search, um botao chamado btn_search e um datagridview onde serao mostrados os resultados da pesquisa.
Sei que a sintaxe de SQL para fazer pesquisas é: SELECT column_name(s) FROM table_name WHERE column_name = nomedavariavel/textbox(etc)
no meu caso será: "SELECT tbl_contacts.Name, tbl_contacts.DOB, tbl_contacts.Height FROM(tbl_contacts) WHERE (((tbl_contacts.Name)=[txtSearch]));", _
o codigo que tenho para fazer isto é:
O problema surge quando tenho que mostrar os resultados de pesquisa no datagridview (posso mostras os resultados noutro objecto caso seja melhor)
Alguem me consegue ajudar? Ja andei a procura e nao encontrei nada que me esclarece-se...
Ja consegui fazer a primeira form (adicionar pessoas para a BD), mas agora estao me a surgir problemas ao fazer o search.
No form do search tenho um Textbox chamado txt_search, um botao chamado btn_search e um datagridview onde serao mostrados os resultados da pesquisa.
Sei que a sintaxe de SQL para fazer pesquisas é: SELECT column_name(s) FROM table_name WHERE column_name = nomedavariavel/textbox(etc)
no meu caso será: "SELECT tbl_contacts.Name, tbl_contacts.DOB, tbl_contacts.Height FROM(tbl_contacts) WHERE (((tbl_contacts.Name)=[txtSearch]));", _
o codigo que tenho para fazer isto é:
Código:
'Make the connect string.
txt_database2.Text = Application.StartupPath & "\db_extras_test2003.mdb"
Dim connect_string As String = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=""" & txt_database2.Text & """;" & _
"Persist Security Info=False"
' Open a database connection.
Dim conn_db_extras_test2003 As New OleDb.OleDbConnection(connect_string)
conn_db_extras_test2003.Open()
' Make a Command to search data.
Dim cmd As New OleDbCommand( _
"SELECT tbl_contacts.Name, tbl_contacts.DOB, tbl_contacts.Height FROM(tbl_contacts) WHERE (((tbl_contacts.Name)=[txtSearch]));", _
conn_db_extras_test2003)
' Execute the command.
Try
cmd.ExecuteNonQuery()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
'Close the connection.
conn_db_extras_test2003.Close()
conn_db_extras_test2003.Dispose()
O problema surge quando tenho que mostrar os resultados de pesquisa no datagridview (posso mostras os resultados noutro objecto caso seja melhor)
Alguem me consegue ajudar? Ja andei a procura e nao encontrei nada que me esclarece-se...
Última edição: