Tema destacado:
 Autor
|
Tema: Problema con INSERT MySQL y VB.net (2003 y 2010) (Leído 759 veces)
|
|
Dreamcacher
|
Bueno pues la cosa es que llevo con un proyecto y he estado trabajando con VB.net 2003 y una base de datos MySQL, he llegado a fucnioanar, hacer querys, devolver datos, y hacer comprobaciones, pero a la hora de hacer un INSERT, o grabar una nueva fila en una tabla y no consigo nada, he probado bastantes formas, o al meno no pillo todavía bien como funciona, pero no logro nada.
Principalmente preferiría trabajar con vb.net 2003, ya que el proyecto es de 2003 y ahora mismo lo he portado a 2010, por el tema de que tal vez con drivers mas actualizados, seria mas sencillo.
Lo perfecto seria poder hacerlo todo mediante lenguaje SQL, con una query INSERT, al estilo PHP, existe alguna forma ce hacerlo así?
sino, si pueden pasarme alguna sencilla, y que este bien explicada, os lo agradecería.
Saludos y Gracias!
|
|
|
|
|
En línea
|
|
|
|
|
|
|
Dreamcacher
|
Ya estoy trabajando con el, en vb.net 2003, usaba el 1.0, pero pensando que igual funcionaba mejor versiones mas recientes, me he pasado a 2010, y la ultima versión de connector, consigo hacer conexiones a la base de datos y hacer Querys para rellenar un Data Adapter, pero no consigo hacer un código para hacer una Insert funcione, ya he estado buscando, y o no me ha funcionado, o no he conseguido adaptarlo para mi caso, así que si me pasáis algún ejemplo, lo agradecería ^^
|
|
|
|
|
En línea
|
|
|
|
|
Dreamcacher
|
ya he conseguido solucionar el problema. Con el MySQL Connector instalado, y con las librerias importadas, vamos lo mismo que antes, este codigo...
Public sub Insert(ByVal q As String, ByRef e As Boolean) As Boolean
e=False
Dim cad As String = "Database=ace;Data Source=localhost ;User Id=ace;Password=proyecto"
Dim conex As New MySqlConnection(cad)
Dim comandoSQL As New MySqlCommand(q, conex)
Try
conex.Open()
comandoSQL.ExecuteNonQuery()
Catch
MsgBox("No se ha podido establecer una conexion con la base de datos." & vbCrLf & "Porfavor compruebe que tiene conexion a la red, o que sus conexiones no estan siendo bloqueadas por un firewall" & vbCrLf & "Si el Error persiste, porfavor contacte con el equipo de soporte tecnico.", MsgBoxStyle.Critical, "Error de Conexion con la base de datos")
e = True
Exit Function
End Try
End sub
Donde q, es una string que contiene la query a MySQL y e una variable booleana, que se pasa por referencia y si devuelve true, es que existido algun error |
|
|
|
|
En línea
|
|
|
|
|
|
|
 |
