converting sql database to access

mokundegrc

New Member
i have this file that connects to a sql DB and adds member info, how do i change this code so that it connects and adds the member info to a Access DB insteadsorry forgot to include the code:<BR><BR>userlist.sql:<BR><BR>CREATE TABLE UserList<BR>(<BR> u_id INT NOT NULL IDENTITY,<BR> u_username VARCHAR( 100 ),<BR> u_password VARCHAR( 100 )<BR>)<BR><BR><BR>dbauthenticate.sql:<BR><BR>CREATE PROCEDURE DBAuthenticate<BR><BR>(<BR> @username Varchar( 100 ),<BR> @password Varchar( 100 )<BR>)<BR>As<BR><BR>DECLARE @ID INT<BR>DECLARE @actualPassword Varchar( 100 )<BR><BR>SELECT<BR> @ID = IdentityCol,<BR> @actualPassword = u_password<BR> FROM UserList<BR> WHERE u_username = @username<BR><BR>IF @ID IS NOT NULL<BR> IF @password = @actualPassword<BR> RETURN @ID<BR> ELSE<BR> RETURN - 2<BR>ELSE<BR> RETURN - 1<BR><BR><BR>register.aspx:<BR><BR><%@ Import Namespace="System.Data" %><BR><%@ Import Namespace="System.Data.SqlClient" %><BR><BR><Script Runat="Server"><BR><BR>Sub Button_Click( s As Object, e As EventArgs )<BR> Dim conMyData As SqlConnection<BR> Dim cmdSelect As SqlCommand<BR> Dim parmReturnValue As SqlParameter<BR> Dim intResult As Integer<BR><BR> If IsValid Then<BR> conMyData = http://aspmessageboard.com/archive/index.php/New SqlConnection( "Server=localhost;UID=sa;PWD=secret;Database=myData" )<BR> cmdSelect = New SqlCommand( "DBRegister", conMyData )<BR> cmdSelect.CommandType = CommandType.StoredProcedure<BR> parmReturnValue = cmdSelect.Parameters.Add( "RETURN_VALUE", SqlDbType.Int )<BR> parmReturnValue.Direction = ParameterDirection.ReturnValue<BR> cmdSelect.Parameters.Add( "@username", txtUsername.Text )<BR> cmdSelect.Parameters.Add( "@password", txtPassword.Text )<BR> conMyData.Open()<BR> cmdSelect.ExecuteNonQuery()<BR> intResult = cmdSelect.Parameters( "RETURN_VALUE" ).Value<BR> conMyData.Close()<BR> If intResult = - 1 Then<BR> lblMessage.Text = "Username Already Registered!"<BR> Else<BR> FormsAuthentication.RedirectFromLoginPage( txtUsername.Text, False )<BR> End If<BR> End If<BR>End Sub<BR><BR></Script><BR><BR><html><BR><head><title>Register.aspx</title></head><BR><body><BR><form Runat="Server"><BR><BR><h2>Please Register</h2><BR><BR><asp:Label<BR> ID="lblMessage"<BR> ForeColor="Red"<BR> Font-Bold="True"<BR> EnableViewState="False"<BR> Runat="Server" /><BR><p><BR><b>Username:</b><BR><BR><BR><asp:TextBox<BR> ID="txtUsername"<BR> Runat="Server" /><BR><asp:RequiredFieldValidator<BR> ControlToValidate="txtUsername"<BR> Text="Required!"<BR> Runat="Server" /><BR><p><BR><b>Password:</b><BR><BR><BR><asp:TextBox<BR> ID="txtPassword"<BR> Runat="Server" /><BR><asp:RequiredFieldValidator<BR> ControlToValidate="txtPassword"<BR> Text="Required!"<BR> Runat="Server" /><BR><p><BR><asp:Button<BR> Text="Register!"<BR> OnClick="Button_Click"<BR> Runat="Server" /><BR><BR></form><BR></body><BR></html><BR><BR><BR>DBregister.sql:<BR><BR><BR>CREATE PROCEDURE DBRegister<BR>(<BR> @username Varchar( 100 ),<BR> @password Varchar( 100 )<BR>)<BR>AS<BR><BR>IF EXISTS( SELECT u_id<BR> FROM UserList<BR> WHERE u_username=@username )<BR> RETURN - 1<BR>ELSE<BR> INSERT UserList (<BR> u_username,<BR> u_password<BR> ) VALUES (<BR> @username,<BR> @password<BR> )<BR> RETURN @@IDENTITY<BR><BR>
 
Back
Top