Salam
man to register kardan moshkel peida kardam
age mitonid ye file sabte name ke faghat user va pass ra to yek file access sabt kone ba asp baram befrestid
code man ke error mide ine
ba tashakor
man to register kardan moshkel peida kardam
age mitonid ye file sabte name ke faghat user va pass ra to yek file access sabt kone ba asp baram befrestid
code man ke error mide ine
Dim ConnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\db1.mdb"
Dim Conn As New Data.OleDb.OleDbConnection(ConnString)
Conn.Open()
Dim CommString As String = "INSERT INTO Reg(UserName, Password) VALUSE (@UserName, @Password)"
Dim Comm As New Data.OleDb.OleDbCommand(CommString, Conn)
Dim P_UserName As New Data.OleDb.OleDbParameter("@UserName", Data.OleDb.OleDbType.VarChar, 50)
P_UserName.Value = TextBox1.Text
Comm.Parameters.Add(P_UserName)
Dim P_Password As New Data.OleDb.OleDbParameter("@Password", Data.OleDb.OleDbType.VarChar, 50)
P_Password.Value = TextBox2.Text
Comm.Parameters.Add(P_Password)
Comm.ExecuteNonQuery()
Conn.Close()
Dim Conn As New Data.OleDb.OleDbConnection(ConnString)
Conn.Open()
Dim CommString As String = "INSERT INTO Reg(UserName, Password) VALUSE (@UserName, @Password)"
Dim Comm As New Data.OleDb.OleDbCommand(CommString, Conn)
Dim P_UserName As New Data.OleDb.OleDbParameter("@UserName", Data.OleDb.OleDbType.VarChar, 50)
P_UserName.Value = TextBox1.Text
Comm.Parameters.Add(P_UserName)
Dim P_Password As New Data.OleDb.OleDbParameter("@Password", Data.OleDb.OleDbType.VarChar, 50)
P_Password.Value = TextBox2.Text
Comm.Parameters.Add(P_Password)
Comm.ExecuteNonQuery()
Conn.Close()
ba tashakor