Mensajes

De Esta lista cuales son los (statements) SQL  Los basico son select,insert into,delete,update

Saludos  Tengo un problemita no puedo resolver  cada vez  que modifico algo en la base de datos me dice

Código (vbnet) [Seleccionar] Expandir

Syntax error (missing operator) in query expression '' Productos Lacteos'  WhereIdProducto=Val(1)'.

Intente ponerle cochetes pero todavia sale el error  creo que el error es categoria pero no se como

Código (vbnet) [Seleccionar] Expandir

PrivateSubBtnGuardar_Click(sender AsSystem.Object, e AsSystem.EventArgs) HandlesBtnGuardar.Click
IfTxtIdProducto.Text = ""Then
'Agrego un registro nuevo
           Almacenar("Insertinto Productos (Nombre, Cantidad, Precio, IdProveedor, Categoria) values ('" + TxtNombre.Text + "','" + MtbCantidad.Text + "', '" + MtbPrecio.Text + "', '" + MtbIdProveedor.Text + "','" + TxtCategoría.Text + "')")
Else
'Modifico un registro existente
           Almacenar("Update Productos set  Nombre='" + TxtNombre.Text + "', Cantidad='" + MtbCantidad.Text + "', Precio='" + MtbPrecio.Text + "', IdProveedor='" + MtbIdProveedor.Text + "',Categoria='" + TxtCategoría.Text + "' whereIdProducto=val(" + TxtIdProducto.Text + ")")
EndIf
RefrescarDatos()


ahora si gracias crack





Gracias a todos lo que dieron su aporte   

Código (vbnet) [Seleccionar] Expandir


Dim f As Integer

       For Each Palabra As String In txtOración.Text.Split(" ")
           If Not Palabra = "" Then
               f= f + 1
           End If
       Next
       lblCantPalabras.Text = Z

como hago esta funcion para encontrar la primera palabra


textbox1.text.split(" ").first  esta  funcion me encuentra la palabra despues del espacio yo lo que quiero es cuando yo le multiple espacio que me sace la primera palabra que puse  ej:"" "" "" "" "" hola como estas  lblprimer=hola

tengo un textbox  con un boton


en ese boton tengo el lo siguiente

Código (vbnet) [Seleccionar] Expandir


lblprimerpalabra=textbox.text.split(" ").first


solo me encuentra la primera palabra si le doy  espacio

yo quiero que cuando le doy a la tecla espacio primero y pongo la frase "hola como estas" que me salga en lblprimerpalabra = hola

como me explico que si no es una palabra que no me la presenta en el textbox de lblprimerpalabra

Código (vbnet) [Seleccionar] Expandir

"Hola     Juan" (Hay 5 espacios)
"Hola","","","","","","Juan" Entonces hay habrian 2 palabras y descontaría cada "" que encuentre.

Hola  como estan mi gente


tengo una pregunta   sobre esta funcion quiero sacer la primera palabra de texto

ejemplo : hola como estas  la primera palabra de ese texto seria "hola"

este es mi codigo

Código (vbnet) [Seleccionar] Expandir

texbox1.Text = H.Split(" ").First

solo tengo una duda como hago  que si le doy doble espacio me sale la primera palabra

Código (vbnet) [Seleccionar] Expandir

un ejemplo espacio hola como estas que me salga "hola"

Puedes usar Select Case KeyAscii

Código (vb) [Seleccionar] Expandir


Ejemplo
Select Case KeyAscii
Case 97 to 122  'Son letras de mayuscula a minuscula
end select


Espero que me pueden ayudar  tengo datos en form1   y lo quiero pasar en el form2 como lo hago este es mi codigo

los datos me salen  pero sale uno de los 5 nombres con sus informaciones

Código (vb) [Seleccionar] Expandir


Data1.Refresh
    Do While Data1.Recordset.EOF = False
        txtMatricula = Data1.Recordset!Matricula
        txtNombre = Data1.Recordset!Nombre
        txtDireccion = Data1.Recordset!Direccion
        txtEdad = Str(Data1.Recordset!Edad)
        txtCarrera = Data1.Recordset!Carrera
        Form3.lblMatricula = txtMatricula.Text
        Form3.lblNombre = txtNombre.Text
        Form3.lblDireccion = txtDireccion.Text
        Form3.lblEdad = txtEdad.Text
        Form3.lblCarrera = txtCarrera.Text
        Data1.Recordset.MoveNext
    Loop
    Form3.Show
End Sub


Tengo Un Base de datos con control data

hize el index en access 2010 y lo formatie a 2000

no se porque me sale  error si le puse el index A Codigo

Código (vb) [Seleccionar] Expandir


Data1.Recordset.Index = "COD"
Data1.Recordset.Seek "=", COD
If Data1.Recordset.NoMatch = True Then
Data1.Recordset.AddNew
Data1.Recordset.Fields("Codigo") = txtcodigo
Data1.Recordset.Fields("Descripción") = txtdescripcion
Data1.Recordset.Fields("Aula") = txtaula
Data1.Recordset.Update
MsgBox ("Registro Agregado")
Call Limpiar
txtcodigo.SetFocus
Else
MsgBox ("Registro Exsitente")


Alguien puede decir por que me sale error    este codigo lo tengo en un solo commando cada vez que le doy me sale error

Código (vb) [Seleccionar] Expandir


Private Sub Command2_Click()
Data1.Recordset.FindFirst ("Codigo='" & TXTCodigo & "'")
If Data1.Recordset.NoMatch = True Then
Data1.Recordset.AddNew
Data1.Recordset!Codigo = TXTCodigo
Data1.Recordset!Descripcion = TXTDescripcion
Data1.Recordset!Aula = TXTAula
Data1.Recordset.Update
MsgBox "Registro Adicionado"
Else
Data1.Recordset.Edit
MsgBox "Registro Editado"
Data1.Recordset.AddNew
Data1.Recordset!Codigo = TXTCodigo
Data1.Recordset!Descripcion = TXTDescripcion
Data1.Recordset!Aula = TXTAula
Data1.Recordset.Update