this is my code and it does not work.
i dont know whatz de problem in this code.
<script language="VB" runat="server">
Dim objConnection As OleDbConnection
Sub Page_Load(Source As Object, E As EventArgs)
objConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; " _
& "DATA SOURCE=" _
& Server.MapPath("nwind.mdb;"))
End Sub
Sub btnInsert_Click(ByVal Sender As Object, ByVal E As EventArgs)
Dim query As String
query = "Select Count(*) From login Where username = ?"
Dim result As Integer = 0
If result > 0 Then
Dim strSQL As String = "INSERT INTO login (username, [password]) " & _
"VALUES (?, ?) "
Dim dbComm As New OleDbCommand(strSQL, objConnection)
dbComm.Parameters.Add("UserName", OleDbType.VarChar, 32, "UserName")
dbComm.Parameters.Add("Password", OleDbType.VarChar, 128, "Password")
dbComm.Parameters("UserName").Value = txtUserName.Text
dbComm.Parameters("Password").Value = txtPassword.Text
Try
objConnection.Open()
dbComm.ExecuteNonQuery()
Catch ex As Exception
Response.Write(ex.Message)
Response.End()
Finally
If objConnection.State = ConnectionState.Open Then
objConnection.Close()
End If
End Try
Response.Write("A new record has been added")
Response.End()
Else
Response.Write("your username is already exist")
End If
End Sub
</script>
Dim objConnection As OleDbConnection
Sub Page_Load(Source As Object, E As EventArgs)
objConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; " _
& "DATA SOURCE=" _
& Server.MapPath("nwind.mdb;"))
End Sub
Sub btnInsert_Click(ByVal Sender As Object, ByVal E As EventArgs)
Dim query As String
query = "Select Count(*) From login Where username = ?"
Dim result As Integer = 0
If result > 0 Then
Dim strSQL As String = "INSERT INTO login (username, [password]) " & _
"VALUES (?, ?) "
Dim dbComm As New OleDbCommand(strSQL, objConnection)
dbComm.Parameters.Add("UserName", OleDbType.VarChar, 32, "UserName")
dbComm.Parameters.Add("Password", OleDbType.VarChar, 128, "Password")
dbComm.Parameters("UserName").Value = txtUserName.Text
dbComm.Parameters("Password").Value = txtPassword.Text
Try
objConnection.Open()
dbComm.ExecuteNonQuery()
Catch ex As Exception
Response.Write(ex.Message)
Response.End()
Finally
If objConnection.State = ConnectionState.Open Then
objConnection.Close()
End If
End Try
Response.Write("A new record has been added")
Response.End()
Else
Response.Write("your username is already exist")
End If
End Sub
Enter your message below
Sign in or Join us (it's free).