Ciao a tutti gli amici del forum,
inizio a scrivermi oggi per chiedere gentilmente un aiuto in merito a quanto segue:
Per lavoro mi collego, tramite VPN, ad un desktop remoto (funzione di windows) ovvero un vero e proprio pc virtuale che ha accesso al DB Oracle. Quindi usando il TOAD (presente su tale pc) riesco a collegarmi ad un determinato DB usando (ovviamente) USERNAME e PASSWORD.
Vorrei creare un programmino con visual basic ed usare il DB sul PC locale (quello che uso per accedere al DB remoto).
come posso fare per collegarmi al PC remoto con Visual studio 2015 e linguaggio Visual basic?
Leggendo su internet son riuscito a creare una form (con una combobox ed un button per il collegamento - dove inserisco IP del PC remoto), ed un modulo in cui riporto i dati di accesso al DB:
-- (A) -- CODICE FORM:
Imports MySql.Data.MySqlClient
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
openConnection() ' apri connessione
Dim cmd As String = "SELECT * from MY TABLE"
Dim da As MySqlDataAdapter = New MySqlDataAdapter(cmd, conn)
Dim dt As New DataTable
da.Fill(dt)
ComboBox1.Enabled = True
ComboBox1.Items.Clear()
ComboBox1.Items.Add(" == Select Database == ")
Dim i As Integer = 0
While i < dt.Rows.Count
'aggiungi ricghe alla combox
ComboBox1.Items.Add(dt.Rows(i)(0).ToString())
i = i + 1
End While
ComboBox1.SelectedIndex = 0
conn.Clone()
dt.Dispose()
da.Dispose()
Catch ex As Exception
MsgBox("Faild to connect whith database server")
End Try
End Sub
End Class
-- (B) -- CODICE MODULE:
Imports MySql.Data.MySqlClient
Module ModuleConnection
Public conn As MySqlConnection
Sub openConnection()
Dim server As String = "10.xxx.xxx.60" 'IP DB REMOTO
Dim hostname As String = "DBPROVA" 'NOME DB REMOTO
Dim userID As String = "myuser" 'server userID
Dim password As String = "mypassword" 'server password
Try
Dim query As String = "server=" & server & "; HOSTNAME=" & hostname & "; user id=" & userID & " ; password=" & password & "; Convert Zero Datatime=True"
conn = New MySqlConnection(query)
If conn.State = ConnectionState.Closed Then
conn.Open() 'apri connessione
MsgBox("Connection success")
End If
Catch ex As Exception
MsgBox("Connection filed !!")
End Try
End Sub
End Module
Ovviamente, inutile dire che ho sempre il messaggio " Connection filed !! "
Grazie mille a tutti per il tempo dedicatami.
Rispondi quotando
Originariamente inviata da optime
