[Resolvido] Base de dados sql

[emanuelx]

boas pessoal

estou aqui com um problema.

eu tenho uma base de dados e queria fazer uma nova janela para fazer do genero de pesquisa avançada, por exemplo

a pesquisa podia ser feita atraves de dois campos string.

mas o problema é o seguinte, com um campo é na boa

mas com vários campos já naos estou a conseguir

o código que tenho é este

Const constr As String = "Data Source=.\SQLEXPRESS; AttachDbFilename=|datadirectory|\basededados.mdf; Integrated Security=True; Connect Timeout=30; User Instance=True"
		Dim db As New SqlConnection(constr)
		db.Open()
		Dim varsql As String
		varsql = "SELECT * FROM funcionarios WHERE id_func='" & id_funcionario.Text & "' OR " & _
		"'nome='" & nome_funcionario.Text & "' OR " & _
		"'data_nascimento='" & data_nac_func.Text & "' OR " & _
		"'doc_id='" & doc_ident_func.Text & "' OR " & _
		"'tipo_contrato='" & tipo_contrato_func.Text & "' OR " & _
		"'nif='" & nif_func.Text & "' OR " & _
		"'niss='" & niss_func.Text & "' OR " & _
		"'cartao_saude='" & cartao_saude_func.Text & "' OR " & _
		"'telefone='" & telefone_func.Text & "'"
		Dim cmd As New SqlCommand(varsql, db)
		Dim dr As SqlDataReader
		dr = cmd.ExecuteReader
		limpar_lista()
		ListView1.Columns.Add("", 0)
		ListView1.Columns.Add("ID")
		ListView1.Columns.Add("Nome")
		ListView1.Columns.Add("Morada")
		ListView1.Columns.Add("Data Nascimento")
		ListView1.Columns.Add("Documento identificação")
		ListView1.Columns.Add("Tipo contrato")
		ListView1.Columns.Add("Inicio Contrato")
		ListView1.Columns.Add("Fim Contacto")
		ListView1.Columns.Add("Nif")
		ListView1.Columns.Add("Niss")
		ListView1.Columns.Add("Cartão saúde")
		ListView1.Columns.Add("Telefone")
		ListView1.Columns.Add("Observações")
		If ListView1.Items.Count - 1 = 0 Then
			If dr.Read = False Then
				MsgBox("sem dados")
			End If
		End If
		While dr.Read
			Dim item As New ListViewItem("")
			item.SubItems.Add(dr.Item("id_func"))
			item.SubItems.Add(dr.Item("nome"))
			item.SubItems.Add(dr.Item("morada"))
			item.SubItems.Add(dr.Item("data_nascimento"))
			item.SubItems.Add(dr.Item("doc_id"))
			item.SubItems.Add(dr.Item("tipo_contrato"))
			item.SubItems.Add(dr.Item("inicio_contrato"))
			item.SubItems.Add(dr.Item("fim_contrato"))
			item.SubItems.Add(dr.Item("nif"))
			item.SubItems.Add(dr.Item("niss"))
			item.SubItems.Add(dr.Item("cartao_saude"))
			item.SubItems.Add(dr.Item("telefone"))
			item.SubItems.Add(dr.Item("observacoes"))
			ListView1.Items.AddRange(New ListViewItem() {item})
		End While
		db.Close()
		For Each lc As ColumnHeader In ListView1.Columns
			lc.Width = -1
		Next
	Catch ex As Exception
		MsgBox(ex.ToString())
	End Try

já descobri tinha uns ' a mais

Edited June 15, 2012 at 10:44 PM by emanuelx

[RGanhoto]

Boas.

ia-te dizer que tens plicas (') nos nomes dos campos e só deverias ter nos valores.

Mas parece que já resolveste o problema =)