UpdateIniPath MeCaption = AppEXEName End Sub Private Sub Form_UnloadCancel As Integer#39 记录运行状态 WritePrivateProfileString quotMainquot， quotActivequot， quot0quot， UpdateIniPath End Sub 用记事本打开modCommonbas文件，copy以下内容到其中Attribute VB_Name = quotmodCommonquotOption Explicit。
示例代码如下Dim cn As New ADODBConnection， rs As New ADODBRecordSet 设置客户端游标rsCursorLocation=adUseClient 打开查询语句quotselect * from 表1quot，与连接对象建立关联rsOpen quotselect * from 表1quot， cn， 3， 2 如此，即可在VB中成功使用ADO连接数据库并执行SQL查询。
上面的步骤创建了一个简单的服务器应用程序为了使它能够工作，还必须为它创建一个客户端的应用程序要创建 TCP 客户端，请按照以下步骤执行在工程中添加一个新的窗体，将其命名为 frmClient将窗体的标题改为“TCP Client”在窗体中添加一个 Winsock 控件，并将其命名为 tcpClient在 frm。
标签： vb创建客户端
文章来源：
菲律宾亚星国际登录
版权声明：凡本站注明内容来源：“菲律宾亚星公司”的所有作品，版权均属于“菲律宾亚星国际登录”，转载请必须注明中“菲律宾亚星开户”。违反者本网将追究相关法律责任。
评论列表
e VB_Name = quotmodCommonquotOption Explicit。示例代码如下Dim cn As New ADODBConnection， rs As New ADODBRecordSet 设置客户端游
ct * from 表1quot， cn， 3， 2 如此，即可在VB中成功使用ADO连接数据库并执行SQL查询。上面的步骤创建了一个简单的服务器应用程序为了使它能够工作，还必须为它创建一个客户端的应用程序要创建
按照以下步骤执行在工程中添加一个新的窗体，将其命名为 frmClient将窗体的标题改为“TCP Client”在窗体中添加一个 Winsock 控件，并将其命名为 tcpClient在 frm。
DBConnection， rs As New ADODBRecordSet 设置客户端游标rsCursorLocation=adUseClient 打开查询语句quotselect * from 表1quot，与连接对象建立关联rsOpen quotselect * from 表1quot，