BPL062
Technical User
- Oct 24, 2001
- 20
Hi,
Im not a programmer but i took a couple courses on VB, so now im doing a small program for the office and it runs ok on my computer but when i installed it on a nother computer in the office it gave me this error:
Drivers SQL Set connect attrib
This error shows up after we type the user name and password and we click on the "OK" button to proceed.
Bellow is the only SQL statment i used to find the user and password.
DBname = App.Path + "\Contact.mdb"
DfltDir = App.Path
ConnectPath = App.Path & "\STConn.dsn"
ConnectString="Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=""DBQ=" & DBname & ";DefaultDir=" & DfltDir & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;FILEDSN=" & ConnectPath & ";MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;"""
With Adodc2
.ConnectionString = ConnectString
.RecordSource = " SELECT UsID,FirstName, LastName, " _
& "cUser,cSetUp,cReport, " _
& "userID, userPass FROM Users " _
& "WHERE userID= '" + txtUserName.Text + "' AND " _
& "userPass= '" + txtPassword.Text + "'"
.Password = 123456
.Refresh
End With
What am i doing wrong?
I would appreciate any input.
Thanks.
Im not a programmer but i took a couple courses on VB, so now im doing a small program for the office and it runs ok on my computer but when i installed it on a nother computer in the office it gave me this error:
Drivers SQL Set connect attrib
This error shows up after we type the user name and password and we click on the "OK" button to proceed.
Bellow is the only SQL statment i used to find the user and password.
DBname = App.Path + "\Contact.mdb"
DfltDir = App.Path
ConnectPath = App.Path & "\STConn.dsn"
ConnectString="Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=""DBQ=" & DBname & ";DefaultDir=" & DfltDir & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;FILEDSN=" & ConnectPath & ";MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;"""
With Adodc2
.ConnectionString = ConnectString
.RecordSource = " SELECT UsID,FirstName, LastName, " _
& "cUser,cSetUp,cReport, " _
& "userID, userPass FROM Users " _
& "WHERE userID= '" + txtUserName.Text + "' AND " _
& "userPass= '" + txtPassword.Text + "'"
.Password = 123456
.Refresh
End With
What am i doing wrong?
I would appreciate any input.
Thanks.