sgdzhtc的博客

Private Sub Form Load a Inet1 OpenURL "www ip38 com" "打开这个网页 获取源码 b InStr a "您的本机IP地址：" "获取这个字符出现的位置 c InStr a "  " "截取这个字符出现的位置 d Mid a b + 9 c b 10 "截取这两个字符间的字符 就是IP了 Text1 Text d "外网IP显示在文本框中 "MsgBox d vbInformation "你当前的外网IP" "下面是将Text1中数据可存到电脑上代码 Dim SaveFile As String SaveFile "D: 服务器外网IP地址 txt" " open app path & " 服务器外网IP地址 txt" For output as #1 Open SaveFile For Append As #1 Write #1 Text1 Text Close #1 End Sub">Private Sub Form Load a Inet1 OpenURL "www ip38 com" "打开这个网页 获取源码 b InStr a "您的本机IP地址：" "获取这个字符出现的位置 c InStr a "  " "截取这个字符出现的位置 d Mid a b + [更多]

论坛上介绍VB远程连接SQL2000数据库的文章比较少,对于远程访问服务器的程序来说比较难的是固定IP地址,因为每次开机后的IP地址要变,申请一个固定IP又太贵了,本人用这种办法解决这个问题(已通过实测)供大家参考,因为是自 学,如有错误,请老师指教.

VB6.0使用代码连接SQL2000数据库进行显示,添加删除,查询数据表