Questo è il programma che ho creato per il test con il mio palmare
[code]
Dim ConnectionString As String = "Data Source=192.168.0.15;Database=HS_Dbase;Integrated Security=True;User ID=HiddenHack;Password=HHvf27-08-07;"
Private Sub btn_Carica_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Carica.Click
Try
Dim dt As New DataTable("DTTest")
Dim Query As String = "SELECT Cliente_ID, Ragione_Sociale, Descrizione, Forma_Giuridica, PIVA, CodiceFiscale, DataCreazione, Matric_Creazione, DataUpdate, Matric_Update, Stato, Fido, FidoDal, FidoAl FROM dbo.Clienti"
Dim command As New SqlCommand(Query)
Using connection As New SqlConnection(ConnectionString) command.Connection = connection
connection.Open()
Dim reader As SqlDataReader = command.ExecuteReader
dt.Load(reader)
reader.Close()
connection.Close()
End Using
dt_Dati.DataSource = dt
MessageBox.Show("Caricamento completato", "TEST WiFi", MessageBoxButtons.OK, MessageBoxIcon.Hand, MessageBoxDefaultButton.Button1)
Catch ex As Exception
MessageBox.Show("Errore:" + ex.Message, "WiFi Test", MessageBoxButtons.OK, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1)
End Try
End Sub
[\code]
ma mi continua a dare errore sqlconnection
dove sto sbagliando?
Grazie per il vostro aiuto.