Mostrar Mensajes
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Public Sub ConectarADO()
On Error GoTo ERR_CommandTimeout:
Set cnADO = New ADODB.Connection
Set rsADO = New ADODB.Recordset
rsADO.CursorLocation = adUseClient
cnADO.ConnectionString = "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=control_hotel; User=root;Password=;Option=3;"
cnADO.Open
GoTo CleanUp:
ERR_CommandTimeout:
Dim oErr As ADODB.Error
For Each oErr In cnADO.Errors
Debug.Print "ConnectionString.: "; cnADO.ConnectionString
Debug.Print "El error es......: "; ":D"
Debug.Print "Descripcion......: "; oErr.Description
Debug.Print "Native...........: "; oErr.NativeError
Debug.Print "Numero...........: "; oErr.Number
Debug.Print "Source...........: "; oErr.Source
Debug.Print "State............: "; oErr.SQLState
Debug.Print String$(150, "-")
If oErr.NativeError = "0" Then
MsgBox "El ODBC es otra version instalar la version correcta", vbInformation
End If
If oErr.NativeError = "2005" Then
MsgBox "El servidor no se encuentra", vbInformation
End If
If oErr.NativeError = "1049" Then
MsgBox "La base datos no se encuentra", vbInformation
End If
If oErr.NativeError = "2003" Then
MsgBox "No se puede conectar al servidor", vbInformation
End If
Next oErr
CleanUp:
Set cnADO = Nothing
End Sub
ErrorHandler:
If Err <> 0 Then
Dim xError As String
xError = Err.Description
Select Case xError
Case "[MySQL][ODBC 5.1 Driver]Unknown database 'control_hotel'"
MsgBox "No existe la bd", vbInformation
Case "[MySQL][ODBC 5.1 Driver]Can't connect to MySQL server on 'localhost' (10061)"
MsgBox "No se puede conectar a la bd", vbInformation
Case "[Microsoft][Administrador de controladores ODBC] No se encuentra el nombre del origen de datos y no se especificó ningún controlador predeterminado"
MsgBox "No existe el controlador ODBC", vbInformation
End Select
End If
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
TextBox2.Text = Split(TextBox1.Text, "Twitter Web Client")(1)
TextBox2.Text = Split(TextBox2.Text, ",")(1)
TextBox2.Text = Split(TextBox2.Text, """")(1)
End Sub
Private Sub Form_Load()
Dim factorial As Double
Dim x, i As Integer
x = CInt(15)
factorial = x
For i = x - 1 To 1 Step -1
factorial = factorial * i
Debug.Print Format(factorial, "##,###0")
Next
End SubSub ImprimirTicket()
Dim xNom, xCan, xSub As String
FileOpen(1, "C:\Factura.txt", OpenMode.Output)
PrintLine(1, "========================================")
PrintLine(1, TAB((40 - Len("COMPROBANTE DE VENTAS")) \ 2), "COMPROBANTE DE VENTAS")
PrintLine(1, "========================================")
PrintLine(1)
PrintLine(1, "----------------------------------------")
PrintLine(1, TAB(0), "CANT", TAB(6), "P R O D U C T O", TAB(34), "SUBTOT")
PrintLine(1, "----------------------------------------")
For I = 0 To Form1.LVentas.Items.Count - 1
xNom = Form1.LVentas.Items(I).Text
xCan = Form1.LVentas.Items(I).SubItems(2).Text
xSub = Form1.LVentas.Items(I).SubItems(3).Text
PrintLine(1, TAB(0), xCan, TAB(6), xNom, TAB(34), xSub)
Next I
PrintLine(1, "----------------------------------------")
PrintLine(1, " TOTAL :", txtTotal.Text)
FileClose(1)
End Sub