Imports System.Data.Odbc
Public Class Form1
'declaro 3 variables que estan dentro de la clase que voy a usar.
'una de coenxion
'una de comando
'una de lectura
Public conexionBD As OdbcConnection
Public comandoSQL As OdbcCommand
Public resultadoSQL As OdbcDataReader
'variables para user
Public nombre As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
'comienza la funcion
Public Function agregaruser()
'Creo la cadena de conexion con la base de datos en este caso una base de informix
conexionBD = New OdbcConnection("Server=localhost;Database=visual;Uid=root;Pwd=root;")
'Abro la conexion
conexionBD.Open()
'Creo el comando con la sentencia SQL que inserta datos en la tabla llamada "solucion"
comandoSQL = New OdbcCommand("INSERT INTO usuario values(nombre)", conexionBD)
'Ejecuto el comando
resultadoSQL = comandoSQL.ExecuteReader
'Muestro el resultado
MsgBox(resultadoSQL.RecordsAffected)
'Cierro la conexion
conexionBD.Close()
Return 0
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
nombre = TextBox1.Text
'activo = CInt(TextBox2.Text) 'convertirlo en interger al texto
agregaruser()
End Sub
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
End Class