Foro de elhacker.net

Public BD As ADODB.Connection
Public RecSQL As ADODB.Recordset
Private Sub connect()
Dim IPMysql  As String
Dim User As String
Dim Password As String

Set BD = New ADODB.Connection
BD.ConnectionString = "Driver={Mysql ODBC 3.51 Driver};" & _
IPMysql = "127.0.0.1" 'IP Del Mysql '
User = "root" ' Usuario de la Base de Datos'
Password = "root" 'Password de la Base de Datos'
BD.Open

End Sub


Private Sub ButtonTransparent1_Click(Index As Integer)

Set RecSQL = New ADODB.Recordset

RecSQL.Open "INSERT INTO Registro (Account_id, Password, Nombre,Email, Birth_Date) VALUES (" & Val(Text1) & ",'" & Text2 & ", " & Text3 & ", " & Text4 & ", " & Text5 & ", " & Text6 & ", " & Text7 & ", " & Text8 & "')", BD, adOpenStatic, adLockOptimistic ----> Esta Linea Sale  Resaltada

Set RecSQL = Nothing

Form2.Hide
End Sub

Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
        '//abrir la conexion a mysql (conConexion)
    With rs
        '//establecer la conexion
        .ActiveConnection = conConexion
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open "INSERT INTO tabla(campos) VALUES(valores)"
        If .State Then .Close
        '//cerrar la conexion
        If conConexion.State Then conConexion.Close
    End With
    Set rs = Nothing

        '//abrir la conexion a mysql (conConexion)

Public BD As ADODB.Connection
Public RecSQL As ADODB.Recordset
Private Sub connect()
Dim IPMysql  As String
Dim SelectBD As String
Dim User As String
Dim Password As String

Set BD = New ADODB.Connection
BD.ConnectionString = "Driver={Mysql ODBC 3.51 Driver};" & _
IPMysql = "127.0.0.1" 'IP Del Mysql '
SelectBD = "ae_server_ls" 'Selecion de la  Base de Datos'
User = "root" ' Usuario de la Base de Datos'
Password = "synopsis" 'Password de la Base de Datos'
BD.Open

End Sub
Private Sub ButtonTransparent1_Click(Index As Integer)
Dim rs As ADODB.Recordset
   Set rs = New ADODB.Recordset
        '//abrir la conexion a mysql (conConexion)
        BD.ConnectionString = "Driver={Mysql ODBC 3.51 Driver};" & _
        IPMysql = "127.0.0.1" 'IP Del Mysql '
        SelectBD = "ae_server_ls" 'Selecion de la  Base de Datos'
        User = "root" ' Usuario de la Base de Datos'
        Password = "synopsis" 'Password de la Base de Datos'
        BD.Open
    With rs
        '//establecer la conexion
        .ActiveConnection = conConexion
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open "INSERT INTO Registro(campos) VALUES(id_personal,acc_id,name,email,birth)"
        If .State Then .Close
        '//cerrar la conexion
        If conConexion.State Then conConexion.Close
    End With
    Set rs = Nothing
End Sub

Private Sub ButtonTransparent2_Click()
On Error GoTo Ver
Set RecBD = New ADODB.Recordset
RecBD.Open "SELECT * from account_data,name,id, BD, adOpenStatic, adLockOptimistic"

While Not RecBD.EOF
  MsgBox "Ya Existe Ese  ID"
Wend
End Sub

Private Sub ButtonTransparent3_Click()
Form2.Hide
End Sub

Option Explicit
  Public conConexion As ADODB.Connection
  Public strCadenaConexion As String

'//CONECTAR AL SERVIDOR DE DATOS
Public Sub psConectar()
  On Error GoTo Error_Handler:
    Set conConexion = New ADODB.Connection
        conConexion.ConnectionString = modMySQL.strCadenaConexion
        conConexion.Open
  Exit Sub
Error_Handler:
    Set conConexion = Nothing
    MsgBox Err.Description & " (" & Err.Number & ").", vbCritical
End Sub

Private Sub psGuardar_Usuario()
  Dim rs As ADODB.Recordset
    On Error GoTo Error_Handler
        Set rs = New ADODB.Recordset
                    Call modMySQL.psConectar
        With rs
            .ActiveConnection = modMySQL.conConexion
            .CursorLocation = adUseClient
            .CursorType = adOpenDynamic
            .LockType = adLockOptimistic
            
                .Open "INSERT INTO tabla(campos) VALUES(valores)"
            If .State Then .Close
            If modMySQL.conConexion.State Then modMySQL.conConexion.Close
        End With
        Set rs = Nothing
    Exit Sub
Error_Handler:
    MsgBox Err.Description & " (" & Err.Number & ").", vbCritical
End Sub

            modMySQL.strCadenaConexion = "driver={MySQL ODBC 3.51 Driver};server=" & Trim(txtServidor) & ";" _
            & "uid=usuario_mysql;pwd=password_mysql;database=base_de_datos;connection="

'cnn esta declarada como mi Conex.
Dim RSTInserto As New ADODB.Recorset
OPENTABLA RSTInserto, "INSERT INTO tabla(campos) VALUES(valores)"", cnn, 3