Visual Basic - vb6 ejecutar scrip

Life is soft - evento anual de software empresarial
   
Vista:

vb6 ejecutar scrip

Publicado por niwdeloko (53 intervenciones) el 12/09/2007 21:26:40
como puedo ejecutar un scrip sql para poder crear una base de datos en mysql??? ayudaa
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

RE:vb6 ejecutar scrip

Publicado por pablo (74 intervenciones) el 14/09/2007 22:34:04
esto a lo mejor te sirva:
Option Explicit

Private Sub Command1_Click()

Dim Path_base As String
Dim cn As ADODB.Connection


Path_base = App.Path & "\bd1.mdb"

'Crea un nuevo objeto connection
Set cn = New ADODB.Connection

'Cadena de conexión
cn.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Path_base & ";" & _
"Persist Security Info=False"

' Abre la conexión a la base bd1
cn.Open

' Elimina la tabla Clientes si es que existe con la instrucción DROP
On Error Resume Next
cn.Execute "DROP TABLE Clientes"

On Error GoTo 0

With cn

' Ejecuta la consulta: Crea la tabla con los tres campos
.Execute "CREATE TABLE Clientes(" & _
"IDCliente INTEGER NOT NULL," & _
"Nombre VARCHAR(40) NOT NULL," & _
"Apellido VARCHAR(40) NOT NULL)"

' Inserta tres registros
.Execute "INSERT INTO Clientes VALUES (1, 'Pedro', 'Gonsales')"
.Execute "INSERT INTO Clientes VALUES (2, 'Martin', 'Rodrigues')"
.Execute "INSERT INTO Clientes VALUES (3, 'MAria', 'Marino')"

'Cierra la conexión
.Close
End With
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar