主题：[求助]QQ交流动态代码求助（已解决）

     这段时间在写小项目的时候，无意中想到一个QQ聊天，就想把QQ聊天加到项目里面去，后面经过一些努力，终于做成了，不过不是动态的。只能把QQ账号输入到窗口中的文本框中，再点击自己交谈按钮。可以实现动态与其他的QQ聊天。

   所以我在数据源中加入了QQName列，并且在添加用户和修改用户中添加了相关的代码。现在用户信息里面有QQ号码了。我想做到，在文本框中输入用户名。点击按钮1时。自动在数据源的中的用户表中搜索与文本框一致的用户。再将该行的的QQName列的数据赋予给“QQusername” ，再执行

    Dim Proc As New Process '定义一个新的Process
    Proc.File = "tencent://message/?uin=" & QQusername '指定要打开的网页地址
    Proc.Start()

 

这里提供一个小小的项目，我知道我能力微薄，但是在论坛里我没找到相关的主题，算是自己对论坛的一点点心意吧，

在这里也希望各位大侠帮帮解决上面的难题，谢谢了

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

If r IsNot Nothing Then

Dim Proc As New Process '定义一个新的Process
    Proc.File = "tencent://message/?uin=" & r   '指定要打开的网页地址
    Proc.Start()

不好意思，我的用户表并没有加载到项目的，只是在数据源里面存在的。

那你怎么找这个用户表的呢.

可能是我没有表达清楚。我用的是自定义登录。用户表在外部数据源可以查到。

 

此主题相关图片如下：qq截图20120616142349.png

 

在狐表数据表里面没有加载的

此主题相关图片如下：qq截图.png

顶起来

      Dim cmd As New SQLCommand
    Dim dt As DataTable

    cmd.ConnectionName = "数据源"
    cmd.CommandText = "SELECT * From {用户表} Where [用户] = '" & _UserName & "'" 
    dt = cmd.ExecuteReader
    If dt.DataRows.Count > 0 Then
    Dim Proc As New Process '定义一个新的Process
    Proc.File = "tencent://message/?uin=" & dt.Datarows(0)("QQ号")
    Proc.Start()

    End If

    End If

谢谢朱大哥的代码，完成了