Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Boas Pessoal!
ja resolvido o problema de inserir, eu agora tentei excluir! mas não estou a ser bem sucedido e não percebo em que consiste o seguinte erro:
Cadeia de caracteres de entrada com formato incorrecto.
Linha 21: conexao = New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & MapPath("GestrofaBD.mdb"))
Linha 22: conexao.Open()
Linha 23: sql = "Delete From Cliente Where Nr_cliente='" & nr & "'"
Linha 24: Comando = New OleDbCommand(sql, conexao)
Linha 25: Comando.ExecuteNonQuery()
-----
código:
<script runat="Server">
Protected Sub Bt_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Bt.Click
Dim nr As Long
nr = Txt.Text
Dim conexao As OleDbConnection
Dim Comando As OleDbCommand
Dim sql As Long
conexao = New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & MapPath("GestrofaBD.mdb"))
conexao.Open()
sql = "Delete From Cliente Where Nr_cliente='" & nr & "'"
Comando = New OleDbCommand(sql, conexao)
Comando.ExecuteNonQuery()
conexao.Close()
End Sub
Protected Sub Btlimpar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Btlimpar.Click
Txt.Text = ""
End Sub
</Script>espero que me possam ajudar...cumps.Carregando comentários...