SQL DATAGRID
Bom dia galera,
Bom, estou no meu serviço no qual nao tenho acesso aos server sql, entao criei pelo vb mesmo, fiz a tabela e tudo, quando executo a rotina de inclusao ele inclui, mas se eu fecho o programa e abro novamente consigo incluir denovo, sendo assim ele nao incluiu no banco pois consigui incluir a mesma primary key, bom logo apos é pra ele mostra no datagridvies coisa que nao acontece tbm.
Espero que entendam
abraços\
agradeço des de ja.
Bom, estou no meu serviço no qual nao tenho acesso aos server sql, entao criei pelo vb mesmo, fiz a tabela e tudo, quando executo a rotina de inclusao ele inclui, mas se eu fecho o programa e abro novamente consigo incluir denovo, sendo assim ele nao incluiu no banco pois consigui incluir a mesma primary key, bom logo apos é pra ele mostra no datagridvies coisa que nao acontece tbm.
Espero que entendam
abraços\
agradeço des de ja.
como vc usou o codigo do insert, por dataset, dataadapter ou datarow?
vc usuo o metodo update e refresh pra realmente atualizar??
vc usuo o metodo update e refresh pra realmente atualizar??
Velinho eu consegui com um amigo meu como se faz direitinho, valew pela ajuda ai cara.
Nao irei fechar o topico irei posta o codigo assim que o fizer
valew
Nao irei fechar o topico irei posta o codigo assim que o fizer
valew
Dim Conn As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\SQLTeste.mdf;Integrated Security=True;User Instance=True")
Conn.Open()
Dim Cmd As New SqlCommand("Insert into dbo.tabela ( ID, Nome ) " & _
" values ( " & _
"'" & txtID.Text & "'," & _
"'" & txtNome.Text & "')", Conn)
Cmd.ExecuteNonQuery()
MsgBox("Incluso")
Dim Da As New SqlDataAdapter("Select * from tabela", Conn)
Dim Dset As New DataSet
Da.Fill(Dset, "tabela")
Data.DataSource = Dset.Tables("tabela")
Conn.Close()
Conn.Dispose()
Dset.Dispose()
Problema resolvido, aqui nao esta funcionando com o sql, mas com access simm
abraços
Conn.Open()
Dim Cmd As New SqlCommand("Insert into dbo.tabela ( ID, Nome ) " & _
" values ( " & _
"'" & txtID.Text & "'," & _
"'" & txtNome.Text & "')", Conn)
Cmd.ExecuteNonQuery()
MsgBox("Incluso")
Dim Da As New SqlDataAdapter("Select * from tabela", Conn)
Dim Dset As New DataSet
Da.Fill(Dset, "tabela")
Data.DataSource = Dset.Tables("tabela")
Conn.Close()
Conn.Dispose()
Dset.Dispose()
Problema resolvido, aqui nao esta funcionando com o sql, mas com access simm
abraços
Tópico encerrado , respostas não são mais permitidas