Saludos a todos !!!
Tengo un problema en VB .Net:
Estoy migrando de VB 6.0 a VB 2008, he utilizado el manual para principiantes de VB .Net, sobre todo con respecto a la parte de Base de datos. Excelente.
Me ha servido mucho en la parte de consulta, y en la inserción de registros...
Pero el problema se me presenta en la parte de actualización y eliminación de los mismos.
He buscado ejemplos en la web, y he conseguido muchos utilizando la sentencia Sql "UPDATE", Ahora he encontrado varios ejemplos y en todos me arroja error. Aquí tengo una muestra del último que usé:
Public Class Form1
Private Conn
As FbConnection
Private Fcsb
As FbConnectionStringBuilder
Private Dad
As FbDataAdapter
Private Dst
As DataSet
Private strSQL
As String = ""
Private Function ConnectionStringBuilder()
As String Fcsb =
New FbConnectionStringBuilder
With Fcsb
.ServerType = 0
.UserID = "xxxxxx"
.Password = "xxxxxx"
.Dialect = 3
.Pooling = False
.Database = "C:\VB90\General Test\DBTEST.FDB"
End With Return Fcsb.ConnectionString
End Function Private Sub UpdateRegister(
ByVal Numero
As Long, _
ByVal Nombre
As String, _
ByVal Apellido
As String, _
ByVal Sexo
As String)
Dim strConn As String = ConnectionStringBuilder()
strSQL =
"UPDATE TST1 SET NOMBRE = @Nombre, APELLIDO = @Apellido, " & _
"SEXO = @Sexo WHERE NUMERO = @Numero" Using FbConn
As New FbConnection(strConn)
Dim FCmd
As New FbCommand(strConn, FbConn)
With FCmd.Parameters
.AddWithValue("@NUMERO", Numero)
.AddWithValue("@NOMBRE", Nombre)
.AddWithValue("@APELLIDO", Apellido)
.AddWithValue("@SEXO", Sexo)
End With FbConn.Open()
Dim nResult
As Integer = FCmd.ExecuteNonQuery()
FbConn.Close()
MessageBox.Show(
"Filas actualizadas: " & CStr(nResult),
"Filas...", _
MessageBoxButtons.OK, MessageBoxIcon.Information)
End Using
End SubEnd ClassBueno, la función
ConnectionStringBuilder, funciona perfectamente (la probé, gracias a DIOS !!!), ahora al ejecutar la Sub
UpdateRegister, ahí es donde se presenta el problema... en la línea:
Dim nResult
As Integer = FCmd.ExecuteNonQuery()
Arroja el siguiente error:
"Dynamic SQL Error SQL error code = -104 Token unknown - line 1, column 1 server"el SQLSTATE arroja "42000" que habla sobre un error en la sintaxis SQL o una violación en las reglas de acceso.
En la Sentencia SQL, "TST1" es el nombre de la tabla. Sus campos:
NUMERO -----> Tipo BIGINT
NOMBRE -----> " VARCHAR (50)
APELLIDO ---> " VARCHAR (50)
SEXO ---------> " VARCHAR (10)
Todos "not null"
Por favor agradezco la correción, o el uso de otro método !!! Porque ya no hayo que hacer !!!
Saludos a Todos !!!
Manuel F. Borrego S.
Barcelona, Edo. Anzoátegui. Venezuela.
