Spanish Problema con Base de Datos

Fastpho

Member
Licensed User
Longtime User
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
 

jota

Active Member
Licensed User
Longtime User
deberia servirte la linea que tienes comentada
'txt = "SELECT * FROM " & DBTableName & " WHERE " & Vend_Codigo & " = " & entrada
si es un texto tendrias que añadir las comillas.
 
Top