- Joined
- Dec 10, 2011
- Messages
- 477
- Reaction score
- 27
change form1.frm ??
======from:
MyConnObj.Open "DRIVER={" & Options.Driver & "};Server=" & Options.SQLHost & "," & Options.SQLPort & ";Network Library=" & Options.NetworkLib & ";Initial Catalog=" & Options.SQLDB & ";User ID=" & Options.SQLUserID & ";Password=" & Options.SQLPass & ";"
sqlStr = "select * from RZ_ACCOUNT where (SITE_CODE = '" & Text1.Text & "') and (PWD = '" & Text2.Text & "')"
myRecSet.Open sqlStr, MyConnObj, adOpenKeyset
======to: (i watch the howto.jpg and fix it)
MyConnObj.Open "DRIVER={" & SQL Server & "};Server=" & 127.0.0.1 & "," & Options.SQLPort & ";Network Library=" & Options.NetworkLib & ";Initial Catalog=" & RZ_ACCOUNTDB & ";User ID=" & sa & ";Password=" & 123456 & ";"
sqlStr = "select * from RZ_ACCOUNT where (SITE_CODE = '" & Text1.Text & "') and (PWD = '" & Text2.Text & "')"
myRecSet.Open sqlStr, MyConnObj, adOpenKeyset
========================
above is right??
======from:
MyConnObj.Open "DRIVER={" & Options.Driver & "};Server=" & Options.SQLHost & "," & Options.SQLPort & ";Network Library=" & Options.NetworkLib & ";Initial Catalog=" & Options.SQLDB & ";User ID=" & Options.SQLUserID & ";Password=" & Options.SQLPass & ";"
sqlStr = "select * from RZ_ACCOUNT where (SITE_CODE = '" & Text1.Text & "') and (PWD = '" & Text2.Text & "')"
myRecSet.Open sqlStr, MyConnObj, adOpenKeyset
======to: (i watch the howto.jpg and fix it)
MyConnObj.Open "DRIVER={" & SQL Server & "};Server=" & 127.0.0.1 & "," & Options.SQLPort & ";Network Library=" & Options.NetworkLib & ";Initial Catalog=" & RZ_ACCOUNTDB & ";User ID=" & sa & ";Password=" & 123456 & ";"
sqlStr = "select * from RZ_ACCOUNT where (SITE_CODE = '" & Text1.Text & "') and (PWD = '" & Text2.Text & "')"
myRecSet.Open sqlStr, MyConnObj, adOpenKeyset
========================
above is right??