siavash_n
سه شنبه 13 مرداد 1388, 15:26 عصر
مشکل من رو در قطعه کد زیر اگه می شه بهم بگبن. پبغام خطا مربوط به Time Out اتصال به سرور می شه.در صورتی که این کد رو واسه اتصال به سرور مستقر در وب انجام دادم و جواب گرفتم.آیا مشکل از نحوه نصب SQL Server 2000 روی سرور محلی؟موقع نصب Sql Server Athentication mode رو انتخاب کردم.Trusted connection رو هم در حالت true و هم false چک کردم.
Dim cstring As String = "server=192.168.9.3;database=Northwind;trusted_conn ection=false;"
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim datatable1 As New Data.DataTable
Dim command As String
command = "SELECT * FROM Customers"
Dim adapter As Data.SqlClient.SqlDataAdapter = New Data.SqlClient.SqlDataAdapter(command, cstring)
Dim employees As New Data.DataSet
adapter.Fill(employees, "dj")
datatable1 = employees.Tables("dj")
adapter.SelectCommand.Connection.Open()
adapter.SelectCommand.ExecuteNonQuery()
adapter.SelectCommand.Connection.Close()
dg.DataSource = datatable1
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Dim cstring As String = "server=192.168.9.3;database=Northwind;trusted_conn ection=false;"
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim datatable1 As New Data.DataTable
Dim command As String
command = "SELECT * FROM Customers"
Dim adapter As Data.SqlClient.SqlDataAdapter = New Data.SqlClient.SqlDataAdapter(command, cstring)
Dim employees As New Data.DataSet
adapter.Fill(employees, "dj")
datatable1 = employees.Tables("dj")
adapter.SelectCommand.Connection.Open()
adapter.SelectCommand.ExecuteNonQuery()
adapter.SelectCommand.Connection.Close()
dg.DataSource = datatable1
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub