Mysql y VB
Publicado por mabopas (3 intervenciones) el 26/04/2007 09:23:28
Hola a tod@s , quiero realizar una agenda donde se pueda acceder desde 2 paises diferentes , en concreto España y Portugal, lo quiero hacer con Visual Basic y una base de datos Mysql, he conseguido conectar con la base de datos mediante visual basic mediante el siguiente codigo :
Option Explicit
Dim conn As ADODB.Connection
Dim db_name, db_server, db_port, db_user, db_pass, constr As String
Private Sub Form_Load()
db_name = "agenda" ' Base de datos
db_server = "localhost" ' Direccion IP
db_port = "3306" ' Puerto
db_user = "root" ' Usuario
db_pass = "" 'Password
OpenServer ' Abrir sin ODBC
Exit Sub
End Sub
Private Sub OpenServer() 'Conectar MySQL sin ODBC
constr = "Provider=MSDASQL.1;Password=;Persist Security Info=True;User ID=;Extended Properties=" & Chr$(34) & "DRIVER={MySQL ODBC 3.51 Driver};DESC=;DATABASE=" & db_name & ";SERVER=" & db_server & ";UID=" & db_user & ";PASSWORD=" & db_pass & ";PORT=" & db_port & ";OPTION=16387;STMT=;" & Chr$(34)
Set conn = New ADODB.Connection
conn.Open constr
End Sub
Ahora bien la conexion la tengo realizada y lo que necesitaria es saber como añadir,borrar y actualizar los 10 campos ( textbox )que tiene el formulario.
Gracias
Option Explicit
Dim conn As ADODB.Connection
Dim db_name, db_server, db_port, db_user, db_pass, constr As String
Private Sub Form_Load()
db_name = "agenda" ' Base de datos
db_server = "localhost" ' Direccion IP
db_port = "3306" ' Puerto
db_user = "root" ' Usuario
db_pass = "" 'Password
OpenServer ' Abrir sin ODBC
Exit Sub
End Sub
Private Sub OpenServer() 'Conectar MySQL sin ODBC
constr = "Provider=MSDASQL.1;Password=;Persist Security Info=True;User ID=;Extended Properties=" & Chr$(34) & "DRIVER={MySQL ODBC 3.51 Driver};DESC=;DATABASE=" & db_name & ";SERVER=" & db_server & ";UID=" & db_user & ";PASSWORD=" & db_pass & ";PORT=" & db_port & ";OPTION=16387;STMT=;" & Chr$(34)
Set conn = New ADODB.Connection
conn.Open constr
End Sub
Ahora bien la conexion la tengo realizada y lo que necesitaria es saber como añadir,borrar y actualizar los 10 campos ( textbox )que tiene el formulario.
Gracias
Valora esta pregunta


0