vb.net连阿里云 nb连接阿里云

如何跨区域解决VB.NET连接SQL2008服务器！

1、局域网的其他电脑是可以连接你的电脑上的sql2008的，就是用的你的电脑在局域网的主机名或IP地址（如192.168.0.101），其他跟你电脑的连接方式是没有任何差别的。

2、花生壳可以把你电脑的外网IP地址与一个固定的域名（可以是自己注册的域名，也可以是花生壳免费分配的二级或三级域名）进行绑定，然后其他地方的电脑通过这个域名就可以访问你电脑上的sql2008了。当然，你所在局域网连接外网的路由器应该把你电脑的内网IP地址以及端口号开放权限，这样路由器就会把外网的访问请求转发到你的电脑上了。

3、最好的解决办法，就是在网上购买一个sql服务器（比如阿里云、百度云、腾讯云这些“云们”提供的云数据服务器），这样全世界的任何电脑都可以连接你的数据库（当然必须知道登录信息才行）。这些业界大佬提供的服务器不管主机性能还是网络带宽以及服务的稳定性，都远远超过你用个人电脑架设的服务器。而且这样还能实现程序与数据的分离，简化程序的开发难度。你所说的用友、航天开票等几乎所有大范围使用的软件，基本上都是这样实现的。此外，还可以做成网页应用程序，这样就连软件都不需要了，直接用浏览器打开指定网页就能使用，这才是现在最流行的方式。

相关问答

Q1: vb.net的数据库连接

1·绑定数据源来进行连接

2.用代码连接

先到数据库建立一个数据库和相应的表

连接数据库的代码：

Dim str As String = "Data Source=服务器名;Initial Catalog=数据库名;Persist Security Info=True;User ID=;Password="

dim conn As SqlClient.SqlConnection

try

conn = New SqlClient.SqlConnection

conn.ConnectionString = str

conn.Open()

Return True

Catch ex As Exception

MsgBox(ex.ToString)

Return False

End Try

登录代码：Dim str As String = "Data Source=服务器名;Initial Catalog=数据库名;Persist Security Info=True;User ID=;Password="

dim conn As SqlClient.SqlConnection

conn = New SqlClient.SqlConnection

conn.ConnectionString = str

conn.Open()

sqlstr = "Select * From Amd Where AmdName='" TextBox1.Text "' And AmdPwd = '" TextBox2.Text "'"

Dim sqlcmd As SqlClient.SqlCommand = New SqlClient.SqlCommand(sqlstr, conn)

Dim dr As SqlClient.SqlDataReader

dr = sqlcmd.ExecuteReader

If dr.Read = True Then '判断一条记录为真

kf.Show() '显示下个窗体

Me.Hide() ’隐藏当前窗体

Else

MessageBox.Show("输入信息有误！", "提示")

TextBox1.Text = ""

TextBox2.Text = ""

End If

Q2: 用vb.net实现网络通信

用 vb.net socket通信

Dim th As Threading.Thread

2 Dim tcpl As System.Net.Sockets.TcpListener

3

4 Private Sub Form1_Load()Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

5 th = New System.Threading.Thread(New System.Threading.ThreadStart(AddressOf MyListen))

6 th.Start()

7 End Sub

8

9 Public Sub SendMessage()Sub SendMessage(ByVal IP As String, ByVal SendMsg As String)

10 Try

11 If IP "" Then

12 Dim tcpc As New System.Net.Sockets.TcpClient(IP, 5656)

13 Dim tcpStream As Net.Sockets.NetworkStream = tcpc.GetStream

14 Dim reqStream As New IO.StreamWriter(tcpStream)

15 reqStream.Write(SendMsg)

16 reqStream.Flush()

17 tcpStream.Close()

18 tcpc.Close()

19 End If

20 Catch ex As Exception

21 MsgBox(ex.Message.ToString)

22 End Try

23 End Sub

24 Private Sub MyListen()Sub MyListen()

25 Try

26 Dim ipAddress As System.Net.IPAddress = System.Net.Dns.Resolve(System.Net.Dns.GetHostName).AddressList(0)

27 tcpl = New System.Net.Sockets.TcpListener(ipAddress, 5656)

28 tcpl.Start()

29 While True

30 Dim s As System.Net.Sockets.Socket = tcpl.AcceptSocket()

31 Dim MyBuffer(1024) As Byte

32 Dim i As Integer

33 i = s.Receive(MyBuffer)

34 If i 0 Then

35 Dim lstrRec As String

36 Dim j As Integer

37 For j = 0 To i - 1

38 TextBox1.Text += Chr(MyBuffer(j)) ","

39 Next

40 End If

41 End While

42 Catch ex As Exception

43 MsgBox(ex.Message.ToString)

44 End Try

45 End Sub

46

47 Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

48 SendMessage("192.168.0.61", TextBox2.Text)

49 End Sub

Q3: vb.net 如何连接网络access

ACCSOURCE = "\\sever1\test.mdb" 'access的网路路经

Set conn = CreateObject("ADODB.Connection")

Set myrs = CreateObject("ADODB.Recordset")

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=123;Mode=;Data Source=" ACCSOURCE '123为密码，access有密码时需要输入正确密码

关于vb.net连阿里云和nb连接阿里云的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。