Leer TextBox y enviarlos a una DB.

[agusv8]

Me gustaria saber como enviar un dato desde una caja de texto en vb6 a una tabla de base de datos o generar una tabla con los datos escritos en las cajas de texto, es para un proyecto de un programa que quiero hacer para trabajar con bases de datos desde la PC.

Es obvio que tenemos que hacer la coneccion y si bien digo creo que usariamos este code para conectar:

DBconexion.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=(Tu_Base_De_Datos);Data Source=(Tu_Servidor);Password='';"

Para ser mas claro desde dos TextBox vacios.

Private Sub Text1_Change()
'aca escribimos el nombre de la tabla en la base de datos.
End Sub

Private Sub Text2_Change()
'y aca el contenido de la tabla que queremos generar en la DB.
End Sub

y luego un CommandButon que mande las ordenes, lea los textbox's y los envie a la DB, o haga lo posible para enviarlos correctamente ja.

Private Sub Command1_Click()
'conectamos y enviamos los Texts.
End Sub

De ahy mandar las ordenes de coneccion, leer los textbox's y enviarlos a la DB, si alguien me ayudaria me seria de muchisima ayuda, ya que estoy con este proyecto hace unos meses :S.

ACLARO: Con una "DB", me refiero a una base de datos MySql de un sitio web.

Debe ser facil es que yo no se mucho jaj, bueno por lo menos ya fui aclarando el code para conectar mas arriba de este tema :P.

jaja el dia que termine este programa se lo voy a postear :P, es un proyecto que esta bueno y me gustaria hacerlo para trabajar y enviar datos a una DB manualmente y facil desde tu PC.

Ha y si se preguntan ¿ Porque este pone ya los datos de la db a conectar de una ?
Bueno primero quiero saber enviarlos y despues agrego las variables con los Texts para conectar.

Saludos y gracias de antemano.

[agusv8]

Bueno miren, ya fui encontrando algo:

Private Sub Command1_Click()
Dim conn As New ADODB.Connection
'Dim rs As New ADODB.Recordset
conn.CursorLocation = adUseClient
conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=localhost;" _
& "DATABASE=;" _
& "UID=root;" _
& "PWD=;" _
& "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384
conn.Open

conn.Execute "CREATE DATABASE `test2`;"

conn.Execute "CREATE TABLE `test2`.`blabla` ( `id` int(11) NULL AUTO_INCREMENT, PRIMARY KEY (`id`)) ENGINE=InnoDB;"

conn.Execute "ALTER TABLE `test2`.`blabla` ADD COLUMN `lala` int(11) NULL DEFAULT NULL;"

'rs.Close
'Set rs = Nothing
conn.Close
Set conn = Nothing

MsgBox "ok"
End Sub

Fuente: codigoplus.com/foro/index.php?showtopic=558

este code es para crear tablas tambien creo.

Bueno voy aclarando un poco...

pero yo queria (COMO YA ACLARE).

Dos textboxs uno el nombre de la tabla y el otro el contenido y un boton que cree lo escrito y listo.

Ruego de su ayuda...

Saludos.