Visual Basic - visual studio 2008 + mysql

Life is soft - evento anual de software empresarial
   
Vista:

visual studio 2008 + mysql

Publicado por julian (2 intervenciones) el 02/05/2013 18:58:41
hola gente estoy haciendo esta conexion y no me queda nose q estoy haciendo mal aqui dejo el codigo quiza me puedan ayudar saludos

http://www.mediafire.com/view/?e2mrzuscx3fmvyn
http://www.mediafire.com/?vq4no520xw1aj7j
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

visual studio 2008 + mysql

Publicado por julian (2 intervenciones) el 08/05/2013 01:10:23
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de xve

visual studio 2008 + mysql

Publicado por xve (178 intervenciones) el 08/05/2013 08:04:24
Gracias por comentarlo Julian!!!
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