如果要程序直接连接DB2数据库,必须要有连接数据库的驱动程序,连接的代码,你可以参考如下(以前用C#写的,你改成VB.NET即可,ODBC连接对象)
成都创新互联公司服务项目包括无为网站建设、无为网站制作、无为网页制作以及无为网络营销策划等。多年来,我们专注于互联网行业,利用自身积累的技术优势、行业经验、深度合作伙伴关系等,向广大中小型企业、政府机构等提供互联网行业的解决方案,无为网站推广取得了明显的社会效益与经济效益。目前,我们服务的客户以成都为中心已经辐射到无为省份的部分城市,未来相信会继续扩大服务区域并继续获得客户的支持与信任!
public OdbcConnection Db2Conn()
{
string str = "DRIVER=IBM DB2 ODBC DRIVER;UID=db2admin;PWD=db2admin;AUTHENTICATION=SERVER;PORT=50000;HOSTNAME=192.168.100.98;PROTOCOL=TCPIP;DATABASE=YCDATA";
OdbcConnection Conn = new OdbcConnection(str);
return Conn;
}
如果你是开发桌面程序而又不想在客户端安装数据库的驱动程序,那么你可以采用web网站(含webservice)或者remoting方式,只需要在服务端安装驱动即可
Public rsNew As ADODB.Recordset
Public CnNew As ADODB.Connection
Public addFlag As Boolean
'连接数据库
Public Function OpenCn() As Boolean
Dim Mag As String
On Error GoTo strErrMag
Set CnNew = New ADODB.Connection
CnNew.ConnectionTimeout = 25
CnNew.Provider = "sqloledb"
CnNew.Properties("data source").value = "" 'SQL服务器的名
CnNew.Properties("initial catalog").value = "pubs"'库名
CnNew.Properties("integrated security").value = "SSPI"'登陆类型
'con.Properties("user id").value = "sa"
'con.Properties("password").value = "wwww"
CnNew.Open
OpenCn = True
addFlag = True
Exit Function
strErrMag:
Mag = "数据库末连接"
Call MsgBox(Mag, vbOKCancel, "错误:数据库连接")
addFlag = False
End
End Function
Public Sub Clocn()
'闭关数据库
On Error Resume Next
If CnNew.State adStateClosed Then CnNew.Close
Set CnNew = Nothing
End Sub
Public Function OpenRs(ByVal strSql As String) As Boolean
'连接数据库记录集
Dim Mag As String
Dim rpy As Boolean
On Error GoTo strErrMag
Set rsNew = New ADODB.Recordset
If addFlag = False Then rpy = OpenCn
With rsNew
.ActiveConnection = CnNew
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open strSql
End With
addFlag = True
OpenRs = True
Exit Function
strErrMag:
Mag = "数据库数据集末连接"
Call MsgBox(Mag, vbOKOnly, "错误:数据库连接")
OpenRs = False
End
End Function
Public Sub cloRs()
'闭关数据集
On Error Resume Next
If rsNew.State adStateClosed Then rsNew.Close
Set rsNew = Nothing
End Sub
研究可以,别做坏事!
1:连接远程电脑,这个技能你能处理不?
1.1:不能处理,那么想问下,连接远程电脑是怎么样方式,使用telnet?还是什么?你要连接人家的电脑,肯定对方要开放端口,或者提供服务。比如sqlserver,你连接远程电脑上的sqlserver服务。
1.1.1举个例子,你使用telnet连接对方的电脑,要求对方是提供并使telnet服务可用的,那么你先向对方发送一个请求,对方电脑会回复你提示是否可以正常通信。正常情况下,对方电脑要求你输入用户名和密码。如果两者正常,那么提示你登录成功。
1.2:如果连接远程电脑,你可以解决,不用考虑,那么楼主你是想实现以后可以不用再输入用户名和密码就可以直接登录是不?
2:处理登录一次成功后,以后不用再次输入用户名和密码
2.1其实说到底,以后不用再次输入,那么就是让程序实现自动输入用户名和密码,不用你去输入,是不?
2.2你在第一次登录成功后,就应该把对方电脑的名称(或者地址),包括用户名和密码保存起来。下次程序自动去判断,当前操作的是不是曾经登录成功过的电脑。用保存起来的用户名和密码进行自动登录。
2.3延深开来。登录时,作下确认是否需要进行下次自动登录,需要的情况下,保存相关2.2的信息。
2.4再延深,你可以设置保存的信息多久失效,比如15天之间没有使用过的情况下,连接电脑时要求重新输入用户名和密码。(此时,需要在每次登录成功后,都在2.2的信息上,记录下最后一次登录的时间)
Dim ADOrs AS RecordsetADOrs.Open "select * from {你的表名} where name='"+text1+"'" '把textbox1作为检索的对象即用来输入查找的条件 if NOT ADOrs.EOF then '开始查找(用了取么操作没有找到到指针即找到了记录)那么执行下面的语句 ADOrs("name")=trim(text1) '把字段name显示给textbox1 ADOrs("year")=trim(text2) '把字段year显示给textbox2 else msgbox "数据库没有检索到你要搜索的记录!",vbokonly,"提示" end if ADOrs.close '最后记得把刚才打开的记录集给关闭掉或则会给数据库添加负荷的。
网页标题:vb点虐
远程登录设备 vb登录窗口
文章分享:https://www.cdcxhl.com/article2/ddecsic.html
成都网站建设公司_创新互联,为您提供静态网站、云服务器、全网营销推广、电子商务、网站建设、做网站
声明:本网站发布的内容(图片、视频和文字)以用户投稿、用户转载内容为主,如果涉及侵权请尽快告知,我们将会在第一时间删除。文章观点不代表本网站立场,如需处理请联系客服。电话:028-86922220;邮箱:631063699@qq.com。内容未经允许不得转载,或转载时需注明来源: 创新互联