vb实现多用户登录
摘要:
Public Function ConnectString() As String '链接数据库 '返回数据库链接 ConnectString = "provider =sqloledb;server=IP(写运行时数据库的存放地址);UID=sa;PWD=123456;database=charge"End FunctionPublic Function exectuteSQL(ByVal SQL As String, MsgString As String) As ADODB.Recordset Dim cnn As ADODB.Connection & 阅读全文
posted @ 2013-08-26 18:57 新一 阅读(619) 评论(0) 推荐(0)
浙公网安备 33010602011771号