Visual Basic - Ayuda a conectarme por codigo

Life is soft - evento anual de software empresarial
   
Vista:

Ayuda a conectarme por codigo

Publicado por fabi (1 intervención) el 13/12/2010 15:36:39
Hola, resulta que tengo un programa en Visual conectado a una base de datos SQL 2005 mediante asistente en el DataSet y ahora necesito que se conecte por codigo, osea que el usuario coloque el nombre del servidor y de la base de datos en unos textbox y se conecte.
Tengo este codigo que hace eso, pero nose como manejar los datatable que ya tengo hecho de cuando me conecte por asistente.

Formulario de los textobox

Public Class Form1
Dim claseconnect As New clConexion

Private Sub btnProbarConexion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProbarConexion.Click
If txtServidor.Text <> "" And txtBaseDatos.Text <> "" Then
Dim nuevaconexion As String = "Data Source=" + txtServidor.Text + ";Initial Catalog=" + txtBaseDatos.Text + ";Integrated Security=True"
If claseconnect.ProbarConexion(nuevaconexion) Then
MessageBox.Show("Conexion exitosa", "OK", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
MessageBox.Show("Conexion erronea", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
Else
MessageBox.Show("Todos los datos son necesarios", "Aviso", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End If
End Sub

Private Sub btnGuardarConexion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGuardarConexion.Click
If txtServidor.Text <> "" And txtBaseDatos.Text <> "" Then
Try
My.Settings.connectionString = "Data Source=" + txtServidor.Text + ";Initial Catalog=" + txtBaseDatos.Text + ";Integrated Security=True"
My.Settings.Save()
MessageBox.Show("La Conexion se guardo correctamente", "OK", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Else
MessageBox.Show("Todos los datos son necesarios", "Aviso", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End If
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Close()
End Sub
End Class

Clase de conexion

Imports System.Data.SqlClient
Public Class clConexion
Private connectionBD As New SqlConnection(My.Settings.connectionString)

Public Function ProbarConexion(ByVal nuevaconexion As String) As Boolean
connectionBD.ConnectionString = nuevaconexion
If AbrirConexion() Then
ProbarConexion = True
CerrarConexion()
Else
ProbarConexion = False
End If
End Function

Private Function AbrirConexion() As Boolean
Try
connectionBD.Open()
AbrirConexion = True
Catch ex As Exception
MessageBox.Show(ex.Message)
AbrirConexion = False
End Try
End Function

Private Function CerrarConexion() As Boolean
Try
connectionBD.Close()
CerrarConexion = True
Catch ex As Exception
MessageBox.Show(ex.Message)
CerrarConexion = False
End Try
End Function
End Class
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder