vb点虐 远程登录设备 vb登录窗口

vb点虐 如何连接远程db2数据库

如果要程序直接连接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方式，只需要在服务端安装驱动即可

VB如何实现远程登陆

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

研究可以，别做坏事！

现在需要写代码(VB.NET，C#也行)，要连接远程电脑(有登陆用户名和密码)，该怎么写？Thans！！

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的信息上，记录下最后一次登录的时间）

vb点虐 远程连接mysql数据库的问题

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 '最后记得把刚才打开的记录集给关闭掉或则会给数据库添加负荷的。