hey que tal !!! les platico que no he podido agregar registros a mi bd
Tengo problemas en la sintaxis pero no he logrado identificarlos; espero que me puedan ayudar, mi código es el siguiente:
Public Sub btnAdd_Clicked(ByVal sender As Object, ByVal e As ClickedEventArgs)
' Boton agregar registros
Dim miConexion As AdoQueryConnection = DirectCast(Me.DataConnections("conecta"), AdoQueryConnection)
Dim ide As XPathNavigator = CreateNavigator().SelectSingleNode("/dfs:myFields/dfs:queryFields/q:Personas/@Id", NamespaceManager)
Dim nom As XPathNavigator = CreateNavigator().SelectSingleNode("/dfs:myFields/dfs:queryFields/q:Personas/@Nombre", NamespaceManager)
Dim ape As XPathNavigator = CreateNavigator().SelectSingleNode("/dfs:myFields/dfs:queryFields/q:Personas/@Apellido", NamespaceManager)
Dim color As XPathNavigator = CreateNavigator().SelectSingleNode("/dfs:myFields/dfs:queryFields/q:Personas/@color", NamespaceManager)
Dim idee, nomm, apee, col As String
idee = ide.InnerXml
nomm = nom.InnerXml
apee = ape.InnerXml
col = color.InnerXml
Try
miConexion.Command = _
"INSERT INTO Personas _
(Id,Nombre,Apellido,color) VALUES (Id,Nombre,Apellido,color); " + " '" & idee & "','" & nomm & "','" & apee & "', '" & col & "'"
miConexion.Execute()
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
MessageBox.Show("Error :( ")
end try
End Sub
Aquí una imagen para mayor referencia: http://social.msdn.microsoft.com/Forums/getfile/505296