| Mensagem : |
são 3 erros.
1 - OleDbConnection' is not defined.
2 - oleDbDataAdapter' is not defined.
3 - OleDbCommandBuilder' is not defined.
o codgio abaixo foi tirado do site do macorati. como exemplo. copiei e colei e dá um zinho.
se vc puder me ajudar.
agradeçio novamente,
vlw.
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim sDBstr As String
Dim sSQL As String
If TextBox1.Text <> "" Then
sDBstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & TextBox1.Text
Else
Exit Sub
End If
If TextBox2.Text <> "" Then
'a instrução sql
sSQL = "SELECT * from sede"
Else
Exit Sub
End If
Try
'o objeto connection
Dim oCn As New OleDbConnection(sDBstr)
'abre a conexao
oCn.Open()
'cria o data adapter e executa a consulta
Dim oDa As New OleDbDataAdapter(sSQL, oCn)
'cria o dataset
Dim oDs As New DataSet()
'preenche o dataset com o data adapter
oDa.Fill(oDs, "Name")
' cria uma Data Row
Dim oDR As DataRow
oDR = oDs.Tables("Name").NewRow
If TextBox3.Text <> "" And TextBox4.Text <> "" Then
'preenche os datarow com os valores
oDR("Id") = CLng(TextBox3.Text)
oDR("Nome") = TextBox4.Text
oDR("endereco") = TextBox5.Text
oDR("cidade") = TextBox6.Text
oDR("estado") = TextBox7.Text
oDR("cep") = TextBox8.Text
oDR("telefone") = TextBox9.Text
If IsDate(TextBox10.Text) Then
oDR("nascimento") = CDate(TextBox10.Text)
Else
oDR("nascimento") = Today
End If
Else
MsgBox("Não há dados válidos !", MsgBoxStyle.Critical, "E R R O ")
'limpa tudo
oDa.Dispose()
oDs.Dispose()
oCn.Dispose()
Exit Sub
End If
'adiciona o datarow ao dataset
oDs.Tables("Name").Rows.Add(oDR)
'usa o objeto Command Bulder para gerar o comando Insert dinamicamente
Dim oCB = New OleDbCommandBuilder(oDa)
'atualiza o Banco de dados com os valores do Dataset com o Data Adapter
oDa.Update(oDs, "Name")
'limpa tudo
oDa.Dispose()
oDs.Dispose()
oCB.Dispose()
oCn.Dispose()
Catch exc As Exception
MsgBox(exc.ToString & vbCrLf & vbCrLf & "Erro Numero : => " & Err.Number, MsgBoxStyle.Critical, "ERRO")
End Try
End Sub
|
erros por leonardogiorgi em 27/2/2010 19:12:21
