 Autor
|
Tema: EMPEZANDO CON BASE DE DATOS (Leído 2,142 veces)
|
..::[ thekingkid ]::..
 Desconectado
Mensajes: 63
|
HOLA BUENAS LAS TENGAN (SEAN DIAS O NOCHES) BUENO HE AKI PRACTICANDO UN POCO SE ME OCURRIO TRATAR DE EMPEZAR CON BASE DE DATOS ENTONCES SEGUN ENLACE MI BASE DE DATOS CON TODOS MIS CONTROLES PERO NO LOGRO HACER UNA CONSULTA SEGUN HE TRATADO CON ESTO 'ESTO VA EN EL KEYPRESS DEL TXTCLIENTE.TEXT TXTCLIENTE_KEYPRESS(KEYASCII AS INTEGER) IF KEYASCII=13 THEN ' SI LA TECLA PRESIONADA ES IGUAL A= 13(ENTER )ENTONCES SELECT*FROM CLIENTES WHERE CLAVE=&TXTCLIENTE.TEXT WITH ADOCLIENTES .RECORDSOURCE .CLEAR WND WITH ELSE END IF PERO NO REALIZA LA CONSULTA SEGUN YO QUIERO QUE CUANDO EL CLIENTE PONGA X NUMERO EN EL TXTCLIENTE.TEXT Y DE ENTER REALIZE LA BUSQUEDA EN BASE A LA CLABE TODOS MODOS LES PONGO EL LINK DEL PROYECTO COMPLETO ESPERO ME PUEDAN AYUDAR http://mx.geocities.com/kaiserkalamar/sistemch.zipGRACIAS, SALU2
|
|
|
|
« Última modificación: 24 Octubre 2006, 21:28 pm por ..::[ thekingkid ]::.. »
|
En línea
|
just wanna try
|
|
|
TheGhost(Z)
Desconectado
Mensajes: 230
|
No te compliques.. haslo por codifo.. Dim RsClientes As New Recordset
RsPaises.Open "Select * From Clientes Where Clave='"& Text1.Text &"' Order By Pais", DBConex, adOpenStatic, adLockOptimistic Una ves que tengas abierto la table pues llenas en un ListView, por ejemplo..
|
|
|
|
|
En línea
|
|
|
|
TheGhost(Z)
Desconectado
Mensajes: 230
|
Mejor Prueba con un ListView. Es lo mejor. A lar larga yo prefiero as.i
With Form1
.ListView1.ListItems.Clear
.ListView1.ColumnHeaders.Clear
.ListView1.ColumnHeaders.Add 1, "A", "Codigo", 1300, 0
.ListView1.ColumnHeaders.Add 2, "B", "Fecha", 1100, 0
.ListView1.ColumnHeaders.Add 3, "C", "Cliente", 2300, 0
.ListView1.ColumnHeaders.Add 4, "D", "Teléfonos", 1500, 0
.ListView1.ColumnHeaders.Add 5, "E", "Ciudad", 1000, 0
.ListView1.View = lvwReport
Dim RsClientes As New Recordset
RsClientes.Open "Select * From Clientes Where Codigo like '%" & Text1.Text & "%'", DBConex, adOpenStatic, adLockOptimistic
If RsClientes.RecordCount > 0 Then
RsClientes.MoveFirst
For i = 1 To RsClientes.RecordCount
Set list_item = .ListView1.ListItems.Add(, , RsClientes!Codigo)
list_item.SubItems(1) = IIf(IsNull(RsClientes!Cliente), "", RsClientes!Cliente)
list_item.SubItems(1) = IIf(IsNull(RsClientes!Telefono), "", RsClientes!Telefono)
list_item.SubItems(1) = IIf(IsNull(RsClientes!Ciudad), "", RsClientes!Ciudad)
RsClientes.MoveNext
Next i
Else
Msgbox "Comentario", VBExClamation, "Titulo"
End If
RsClientes.Close
End With
|
|
|
|
|
En línea
|
|
|
|
TheGhost(Z)
Desconectado
Mensajes: 230
|
Considerar esoto....
list_item.SubItems(1) = IIf(IsNull(RsClientes!Cliente), "", RsClientes!Cliente)
list_item.SubItems(2) = IIf(IsNull(RsClientes!Telefono), "", RsClientes!Telefono)
list_item.SubItems(3) = IIf(IsNull(RsClientes!Ciudad), "", RsClientes!Ciudad)
|
|
|
|
|
En línea
|
|
|
|
..::[ thekingkid ]::..
Desconectado
Mensajes: 63
|
muchas gracias pero no logro que funcione en los ejemplos que me pusieron no he logrado entender que es un rocordset en el codigo este segun se declara rsclientes como un recordset y luego que se su pone que es el rspaises un ado data control???? o devera ser la variable rsclientes?? y eso de order by pais? (ordenar por pais? y lo de DBconex lo de adopenstatic y lo de adlockoptimistic Dim RsClientes As New Recordset RsPaises.Open "Select * From Clientes Where Clave='"& Text1.Text &"' Order By Pais", DBConex, adOpenStatic, adLockOptimistic por cierto ya probe el codigo segun com mi base pero no hago que funciones mmm aparte de enlazar la base de datos hay que hacer algo mas??? este es mi proyecto http://mx.geocities.com/kaiserkalamar/sistemch.zipo el codigo de la form.:
VERSION 5.00
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Object = "{F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0"; "MSDATLST.OCX"
Begin VB.Form frmCrear
Caption = "Form2"
ClientHeight = 10485
ClientLeft = 60
ClientTop = 450
ClientWidth = 13860
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 10485
ScaleWidth = 13860
WindowState = 2 'Maximized
Begin VB.Frame Frame1
Caption = "Facturacion"
Height = 9135
Left = 240
TabIndex = 0
Top = 360
Width = 12135
Begin MSAdodcLib.Adodc AdoClientes
Height = 330
Left = 240
Top = 3000
Width = 4680
_ExtentX = 8255
_ExtentY = 582
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 8
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Z:\sistemch\datos\Syst.mdb;Persist Security Info=False"
OLEDBString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Z:\sistemch\datos\Syst.mdb;Persist Security Info=False"
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = "select*from clientes where clave"
Caption = "Adodc1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin VB.TextBox tXTcPOSTAL
DataField = "codigopostal"
DataSource = "AdoCLIENTES"
Height = 285
Left = 2280
TabIndex = 38
Text = "Text1"
Top = 2160
Width = 3015
End
Begin MSDataGridLib.DataGrid DATACONCEPTOS
Height = 3735
Left = 480
TabIndex = 37
Top = 4800
Width = 9495
_ExtentX = 16748
_ExtentY = 6588
_Version = 393216
AllowUpdate = -1 'True
HeadLines = 1
RowHeight = 15
BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "C o n c e p t o s "
ColumnCount = 2
BeginProperty Column00
DataField = ""
Caption = ""
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2058
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column01
DataField = ""
Caption = ""
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2058
SubFormatType = 0
EndProperty
EndProperty
SplitCount = 1
BeginProperty Split0
BeginProperty Column00
EndProperty
BeginProperty Column01
EndProperty
EndProperty
End
Begin VB.Frame FroPciones
Caption = "Cambiar Fecha.:"
Height = 4815
Left = 5520
TabIndex = 32
Top = 120
Width = 6495
Begin VB.CommandButton Command3
Caption = "&Cancelar"
Height = 495
Left = 4560
TabIndex = 35
Top = 1560
Width = 1695
End
Begin VB.CommandButton Command2
Caption = "&Aceptar"
Height = 495
Left = 4560
TabIndex = 34
Top = 840
Width = 1695
End
Begin VB.TextBox TXTNfecha
BeginProperty DataFormat
Type = 1
Format = "dd/MM/yyyy"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2058
SubFormatType = 3
EndProperty
Height = 495
Left = 1920
TabIndex = 33
Top = 720
Width = 2535
End
Begin VB.Label Label15
Caption = "Nueva Fecha.:"
Height = 375
Left = 600
TabIndex = 36
Top = 840
Width = 1095
End
End
Begin VB.Frame Frame3
Height = 2175
Left = 8040
TabIndex = 24
Top = 240
Width = 3855
Begin VB.TextBox TXTHora
Height = 375
Left = 1920
TabIndex = 30
Text = "Text6"
Top = 1080
Width = 1455
End
Begin VB.CommandButton Command1
Caption = "Cambiar Fecha"
Height = 375
Left = 2160
TabIndex = 29
ToolTipText = "Puede Cambiar el numero de Folio o la fecha del sistema!!"
Top = 1560
Width = 1455
End
Begin VB.TextBox TXTFEcha
Height = 285
Left = 1920
TabIndex = 27
Text = "Text7"
Top = 720
Width = 1455
End
Begin VB.TextBox TXTFolio
Height = 375
Left = 1920
TabIndex = 25
Text = "Text6"
Top = 240
Width = 1455
End
Begin VB.Label Label14
Caption = "Hora.:"
Height = 255
Left = 1320
TabIndex = 31
Top = 1200
Width = 495
End
Begin VB.Label Label13
Caption = "Fecha.:"
Height = 375
Left = 1320
TabIndex = 28
Top = 720
Width = 615
End
Begin VB.Label Label12
Caption = "Folio Factura"
Height = 375
Left = 840
TabIndex = 26
Top = 240
Width = 1095
End
End
Begin VB.Frame Frame2
Caption = "Detalle a Facturar"
Height = 6015
Left = 0
TabIndex = 11
Top = 3480
Width = 11655
Begin VB.CommandButton Command4
Caption = "&Agregar"
Height = 375
Left = 9960
TabIndex = 20
Top = 600
Width = 975
End
Begin VB.TextBox TxtSUBtotal
BeginProperty DataFormat
Type = 1
Format = """$""#,##0.00"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2058
SubFormatType = 2
EndProperty
Height = 285
Left = 8520
TabIndex = 21
Top = 600
Width = 1215
End
Begin VB.TextBox TxtPrecio
BeginProperty DataFormat
Type = 1
Format = """$""#,##0.00"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2058
SubFormatType = 2
EndProperty
Height = 285
Left = 7320
TabIndex = 19
Top = 600
Width = 975
End
Begin VB.TextBox TxtDescripcion
Height = 285
Left = 2520
TabIndex = 14
Top = 600
Width = 4455
End
Begin VB.TextBox TXTUnidad
Height = 285
Left = 1320
TabIndex = 13
Top = 600
Width = 975
End
Begin VB.TextBox TxtCantidad
BeginProperty DataFormat
Type = 1
Format = "#,##0.00;(#,##0.00)"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2058
SubFormatType = 1
EndProperty
Height = 285
Left = 360
TabIndex = 12
Top = 600
Width = 855
End
Begin VB.Line Line1
X1 = 240
X2 = 11400
Y1 = 1080
Y2 = 1080
End
Begin VB.Label Label11
Caption = "Total"
Height = 255
Left = 8640
TabIndex = 23
Top = 240
Width = 975
End
Begin VB.Label Label10
Caption = "Precio"
Height = 255
Left = 7560
TabIndex = 22
Top = 240
Width = 495
End
Begin VB.Label Label9
Caption = "Descripcion"
Height = 255
Left = 2640
TabIndex = 18
Top = 240
Width = 4575
End
Begin VB.Label Label7
Caption = "Unidad"
Height = 255
Left = 1440
TabIndex = 16
Top = 240
Width = 615
End
Begin VB.Label Label6
Caption = "Cantidad"
Height = 255
Left = 360
TabIndex = 15
Top = 240
Width = 855
End
End
Begin VB.TextBox TXTRFC
DataField = "RFC"
DataSource = "AdoCLIENTES"
Height = 285
Left = 2280
TabIndex = 9
Text = "Text3"
Top = 2520
Width = 3375
End
Begin VB.TextBox TXTCUidadEDO
DataField = "direccion2"
DataSource = "AdoCLIENTES"
Height = 285
Left = 2280
TabIndex = 7
Text = "Text2"
Top = 1800
Width = 5175
End
Begin VB.TextBox TXTDireccion
DataField = "direccion"
DataSource = "AdoCLIENTES"
Height = 285
Left = 2280
TabIndex = 5
Text = "Text1"
Top = 1440
Width = 5175
End
Begin VB.TextBox TXTNCLiente
DataField = "nombre"
DataSource = "AdoCLIENTES"
Height = 285
Left = 2280
TabIndex = 3
Text = "Text1"
Top = 1080
Width = 5175
End
Begin VB.TextBox TxtCliente
DataField = "clave"
DataSource = "AdoCLIENTES"
Height = 285
Left = 1560
TabIndex = 1
Text = "Text1"
Top = 600
Width = 1335
End
Begin MSDataListLib.DataList DataList1
DataField = "clave"
DataSource = "Adodc1"
Height = 450
Left = 3360
TabIndex = 40
Top = 360
Width = 1575
_ExtentX = 2778
_ExtentY = 794
_Version = 393216
MatchEntry = -1 'True
End
Begin VB.Label Label16
Caption = "Codigo Postal"
Height = 255
Left = 480
TabIndex = 39
Top = 2160
Width = 1575
End
Begin VB.Label Label5
Caption = "RFC.:"
Height = 255
Left = 840
TabIndex = 10
Top = 2520
Width = 1215
End
Begin VB.Label Label4
Caption = "Cuidad Y Estado"
Height = 255
Left = 720
TabIndex = 8
Top = 1800
Width = 1215
End
Begin VB.Label Label3
Caption = "Direccion"
Height = 255
Left = 720
TabIndex = 6
Top = 1440
Width = 1335
End
Begin VB.Label Label2
Caption = "Nombre del cliente"
Height = 375
Left = 720
TabIndex = 4
Top = 1080
Width = 1455
End
Begin VB.Label Label1
Caption = "Clave Cliente"
Height = 255
Left = 240
TabIndex = 2
Top = 600
Width = 1095
End
End
Begin VB.Label Label8
Caption = "Label8"
Height = 495
Left = 4080
TabIndex = 17
Top = 4080
Width = 1215
End
End
Attribute VB_Name = "frmCrear"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'TIENDA19 ACUERDA ELIEL DE STN BNC
Private Sub Command1_Click()
FroPciones.Visible = True
End Sub
Private Sub Command3_Click()
FroPciones.Visible = False
End Sub
Private Sub Command4_Click()
MsgBox "se ha agregado la entrada", vbCritical, "----"
End Sub
Private Sub Form_Load()
TXTFEcha = Date
TXTHora = Time
FroPciones.Visible = False
End Sub
Private Sub TxtCantidad_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{tab}"
Else
End If
End Sub
Private Sub TxtCliente_Change()
'On Error GoTo error
Dim STRQUERY As String
Dim RsClientes As New Recordset
Dim AdoClien As New Recordset
'If KeyAscii = 13 Then
' aki debe buscar en la base si existe el cliente si no entonces?? inche kalamar
'STRQUERY = "SELECT * FROM CLIENTES WHERE clave=" & TxtCliente.Text
'RsClientes.Open "Select * From Clientes Where Clave='" & TxtCliente.Text, DBConex, adOpenStatic, adLockOptimistic
'RsClientes.Open "Select * From Clientes Where Clave='" & TxtCliente.Text & "' Order By clave", DBConex, adOpenStatic, adLockOptimistic
'With AdoCLIENTES
'.RecordSource = STRQUERY
'.Refresh
'End With
'Else
'End If
Exit Sub
error:
MsgBox Err.Description
End Sub
Private Sub TxtDescripcion_KeyPress(KeyAscii As Integer)
On Error GoTo error
If KeyAscii = 13 Then
SendKeys "{tab}"
Else
End If
Exit Sub
error:
End Sub
Private Sub TxtPrecio_KeyPress(KeyAscii As Integer)
On Error GoTo error
If KeyAscii = 13 Then
TxtSUBtotal.Text = TxtCantidad * TxtPrecio.Text
SendKeys "{tab}"
Else
End If
Exit Sub
error:
If TxtCantidad = "" Then
MsgBox "introduzca La Cantidad", vbExclamation, "Faltan llenar Campos [SysFact]"
TxtCantidad.SetFocus
Else
If TxtPrecio.Text = "" Then
MsgBox "El Campo precio esta vacio", vbExclamation, "Faltan llenar Campos [SysFact]"
TxtPrecio.SetFocus
Else
MsgBox Err.Description, vbCritical, "Error no definido"
End If
End If
End Sub
Private Sub TXTUnidad_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{tab}"
Else
End If
End Sub
|
|
|
|
« Última modificación: 24 Octubre 2006, 21:33 pm por ..::[ thekingkid ]::.. »
|
En línea
|
just wanna try
|
|
|
Salco Brand
Desconectado
Mensajes: 2
|
Leete esto primero, ahi entenderás más o menos lo que es un recordset y los objetos de conexion, está orientado a lo que es ADO ( ActiveX Data Objects ), pero lee la parte de los conceptos, que es eplicable en muchos casos, (si no en todos)... http://www.aspfacil.com/articulos/040401.aspSaludos!, ojalá te sirva de algo. |
|
|
|
|
En línea
|
|
|
|
..::[ thekingkid ]::..
Desconectado
Mensajes: 63
|
me acabo de dar cuenta que no tiene que ver eso es algo de la conexion.... o del la base de datos!!!! saludos
|
|
|
|
|
En línea
|
just wanna try
|
|
|
..::[ thekingkid ]::..
Desconectado
Mensajes: 63
|
bueno el caso que despues de todo me muestra este maldito mensaje segun ya realize todo lo delas conexiones pero no entiendo por que... segun dice es cuando intento guardar un dato en la base me dice "Acceso Denegado"
lo ago asi adoclientes.recordset.save
|
|
|
|
|
En línea
|
just wanna try
|
|
|
CeLaYa
Desconectado
Mensajes: 543
|
y como haces la conexión? a lo mejor tienes Password, o estas abriendo la BD en modo de solo lectura
|
|
|
|
|
En línea
|
"La soledad es el elemento de los grandes talentos".
Cristina de Suecia (1626-1689) Reina de Suecia.
|
|
|
..::[ thekingkid ]::..
Desconectado
Mensajes: 63
|
o.k muchisimas gracias a todos por ahora si se pudo eso de guardar los datos... el celaya tenia razon ahora lo abro en modo de read/write y yapuedo escribir aunque aun no logro filtrar los resultados eso no he logrado entender y lograr que funcione gracias
saludosss!!!!!!!!!
|
|
|
|
|
En línea
|
just wanna try
|
|
|
|
 |
