Tengo el siguiente dilema : poseo una base de datos de vendedores con la
siguiente estructura Vend_codigo , Vend_Descripcion , Vend_Clave
lo que quiero q el usuario coloque su codigo y si existe me muestre su nombre luego lo valide con su clave para dejarlo pasar
Ademas siempre me trae la descripcion del vendedor 1 creo q el problema es
el cursor1.position = 0 como le hago para que lo posicione con la entrada q hace el usuario
Desde ya muchas gracias por su tiempo
Muestro algunas lineas pq se entienda mejor
Sub Process_Globals
Dim SQLVEND As SQL
Dim DBFileName As String : DBFileName = "vend.s3db"
Dim DBFileDir As String : DBFileDir = File.DirInternal
'Dim DBFileDir As String : DBFileDir = File.DirRootExternal
Dim DBTableName As String : DBTableName = "vendedor"
Dim ColumnName(3) As String ' names of columns fields
ColumnName(0) = "vend_codigo"
ColumnName(1) = "vend_descripcion"
ColumnName(2) = "vend_clave"
Sub edOperador_EnterPressed
If edOperador.Text.Length =0 Then ' si el dato space obliga a poner dato y retorna el focus
Msgbox("Error debe colocar el numero de operador","")
edOperador.RequestFocus
Return
End If
SQLReadVend
End Sub
Sub SQLReadVend
Dim i As Int
Dim Cursor1 As Cursor
Dim txt As String
Dim entrada As String
Dim e As String
entrada = edOperador.Text
txt = "SELECT * FROM " & DBTableName
Cursor1 = SQLVEND.ExecQuery(txt) ' reads the new database
Cursor1.Position = 0
'Cursor1 = SQLVEND.ExecQuery("SELECT * FROM DBTableName WHERE Vend_Codigo LIKE entrada ")
'Cursor1 = SQLVEND.ExecQuery("SELECT * FROM DBTableName WHERE ID = entrada")
'txt = "SELECT * FROM " & DBTableName & " WHERE " & Vend_Codigo & " = " & entrada
'Cursor1 = SQLVEND.ExecQuery(txt) ' reads the new database
edNombreVend.text=Cursor1.GetString(ColumnName(1))
'e.Text = Cursor1.GetString(vend_descripcion)
'Msgbox(e.text,"3")
'Cursor1.Position = 0
'Log("hola")
'Log(Cursor1.ColumnCount)
End Sub
siguiente estructura Vend_codigo , Vend_Descripcion , Vend_Clave
lo que quiero q el usuario coloque su codigo y si existe me muestre su nombre luego lo valide con su clave para dejarlo pasar
Ademas siempre me trae la descripcion del vendedor 1 creo q el problema es
el cursor1.position = 0 como le hago para que lo posicione con la entrada q hace el usuario
Desde ya muchas gracias por su tiempo
Muestro algunas lineas pq se entienda mejor
Sub Process_Globals
Dim SQLVEND As SQL
Dim DBFileName As String : DBFileName = "vend.s3db"
Dim DBFileDir As String : DBFileDir = File.DirInternal
'Dim DBFileDir As String : DBFileDir = File.DirRootExternal
Dim DBTableName As String : DBTableName = "vendedor"
Dim ColumnName(3) As String ' names of columns fields
ColumnName(0) = "vend_codigo"
ColumnName(1) = "vend_descripcion"
ColumnName(2) = "vend_clave"
Sub edOperador_EnterPressed
If edOperador.Text.Length =0 Then ' si el dato space obliga a poner dato y retorna el focus
Msgbox("Error debe colocar el numero de operador","")
edOperador.RequestFocus
Return
End If
SQLReadVend
End Sub
Sub SQLReadVend
Dim i As Int
Dim Cursor1 As Cursor
Dim txt As String
Dim entrada As String
Dim e As String
entrada = edOperador.Text
txt = "SELECT * FROM " & DBTableName
Cursor1 = SQLVEND.ExecQuery(txt) ' reads the new database
Cursor1.Position = 0
'Cursor1 = SQLVEND.ExecQuery("SELECT * FROM DBTableName WHERE Vend_Codigo LIKE entrada ")
'Cursor1 = SQLVEND.ExecQuery("SELECT * FROM DBTableName WHERE ID = entrada")
'txt = "SELECT * FROM " & DBTableName & " WHERE " & Vend_Codigo & " = " & entrada
'Cursor1 = SQLVEND.ExecQuery(txt) ' reads the new database
edNombreVend.text=Cursor1.GetString(ColumnName(1))
'e.Text = Cursor1.GetString(vend_descripcion)
'Msgbox(e.text,"3")
'Cursor1.Position = 0
'Log("hola")
'Log(Cursor1.ColumnCount)
End Sub