我上面好像写明了数据库吧?"mssql是用......",你用得再问我是不是sql吗?因为网上邻居写了名字之后就可以连上,何解? 大概代码是 dim rs as adodb.rescordset Private Sub Form_load() dim Connect as string Connect="Provider=server={Sql server};uid=sa;pwd=pass;database=Myinfo" ssql="select * from baseinfo where uname='" &txtinput.txt &"'" 因为在网吧上网所以只能用手写了,所以不敢保证我这里写的是对的, 但可以肯定,我在家里时通过VB数据工程向导做的程序,如果输入了一次用户名后就可以连接 dim cn as adodb.connection set cn=new adodb.connection cn.open connect set rs=new adodb.rescordset rs.open sSql,cn,adLOCkoptionXX,ADlockXXXstatic
大概代码是
dim rs as adodb.rescordset
Private Sub Form_load()
dim Connect as string
Connect="Provider=server={Sql server};uid=sa;pwd=pass;database=Myinfo"
ssql="select * from baseinfo where uname='" &txtinput.txt &"'"
因为在网吧上网所以只能用手写了,所以不敢保证我这里写的是对的,
但可以肯定,我在家里时通过VB数据工程向导做的程序,如果输入了一次用户名后就可以连接
dim cn as adodb.connection
set cn=new adodb.connection
cn.open connect
set rs=new adodb.rescordset
rs.open sSql,cn,adLOCkoptionXX,ADlockXXXstatic