请求高手写一段登录服务器程序!
解决方案 »
- 有写过用计算机和艾默生ev1000变频器通讯的程序的么?求助
- 如果更改用New新建的窗体的名称
- 求VB与水晶报表动态连接的文章.
- 如何求出完整的类似于MOD的结果?
- 问:用ado如何调用不在同一文件夹里面的access数据库,
- listview中,怎么能够禁止选中listitems
- 为什么有的机器上出现OpenDatabase错误?
- datagrid 为何不显示?
- 有关将SQL server转换为EXCEL文件的问题?请帮帮我!!!
- 自编程序(QQ 群发工具),现在测试,期待您的意见。
- 求教commondialog控件另存为方法,谢谢!!!
- sql语句(访问oracle时)是何意?当改成连接sqlserver 该如何写?
userpwd = DeCrypt(pwdtxt, uidtxt)
loginuid = uidtxt
DatabaseName = databasenametxt
cn.ConnectionString = "provider=" & providercob & ";server=" & servernametxt & ";uid=" & uidtxt & ";pwd=" & userpwd & ";database=" & DatabaseName
cn.CursorLocation = adUseClient
cn.Open
Private objDataLink As New MSDASC.DataLinks
Dim sConnect As String
Set objDataLink = New MSDASC.DataLinks
sConnect = objDataLink.PromptNew在工程中引用
microsoft oldb service compenent 1.0 ****
Private objDataLink As New MSDASC.DataLinks
Dim sConnect As String
Set objDataLink = New MSDASC.DataLinks
sConnect = objDataLink.PromptNew在工程中引用
microsoft oldb service compenent 1.0 ****
给我写一段登录服务器的例子?
里面的ppADOConnection搞得不清楚,能不能给我写个例子?
Private Sub Command1_Click()
Dim sConnect As String
Set objDataLink = New MSDASC.DataLinks
sConnect = objDataLink.PromptNew
debug.print sConnect
End Sub
你建立一个form,在放一个Commandbox