Visual Basic.NET - Postgresql y :net2008

 
Vista:
Imágen de perfil de rtb

Postgresql y :net2008

Publicado por rtb (24 intervenciones) el 25/03/2011 17:03:46
hola amigos, mi pregunta es muy de novato, estoy queriendo realizar una pequeña aplicación con .net y postgresql, ya logre conectar a la base de datos, pero ahora quiero realizar un delete, modificación y insert en mi tabla, pero no lo logro hacer, alguien tiene alguna aplicación de ejemplo sencillo para comenzar.-
Saludos cordiales a todos.-
roberto
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de rtb

Postgresql y .net2008

Publicado por rtb (24 intervenciones) el 27/03/2011 20:56:21
Este es mi codigo que estoy intentando ejecutar, es un insert, pero no logro hacer que inserte :
Sub insertar_clientes()

Dim cmdUpdate As OleDbCommand


cn.usuario = m_usuario
cn.pase = m_pase
cn.host = m_host
cn.base = m_base
cn.conectar()

sql = "insert into clientes( id_cliente," & _
"cedula_identidad, " & _
"nombres , " & _
"apellidos," & _
"Direccion," & _
"telefonos," & _
"Ruc ," & _
"fecha_nacimiento," & _
"fecha_alta," & _
"estado," & _
"estado_civil," & _
"sexo," & _
"fecha_presentacion) values(pcliente,pcedula_identidad," & _
"pnombres,papellidos,pdireccion,ptelefonos,prut,fecha_nacimiento,pestado," & _
"pestado_civil,psexo,pfecha_presentacion)"

cmdUpdate = New OleDbCommand(sql, cn)

cmdUpdate.Parameters.Add("pcliente", OleDbType.Numeric, 10)
cmdUpdate.Parameters("pcliente").Value = Me.TxtCodigo.Text

cmdUpdate.Parameters.Add("pcedula_identidad", OleDbType.VarChar, 20)
cmdUpdate.Parameters("pcedula_identidad").Value = Me.MaskedCedula.Text

cmdUpdate.Parameters.Add("pnombres", OleDbType.VarChar, 20)
cmdUpdate.Parameters("pnombres").Value = Me.MaskedNombres.Text

cmdUpdate.Parameters.Add("papellidos", OleDbType.VarChar, 20)
cmdUpdate.Parameters("papellidos").Value = Me.MaskedApellidos.Text

cmdUpdate.Parameters.Add("ptelefono", OleDbType.VarChar, 20)
cmdUpdate.Parameters("ptelefono").Value = Me.MaskedTelefonos.Text

cmdUpdate.Parameters.Add("pruc", OleDbType.VarChar, 20)
cmdUpdate.Parameters("pruc").Value = Me.MaskedRuc.Text

cmdUpdate.Parameters.Add("pfecha_nacimiento", OleDbType.Date, 20)
cmdUpdate.Parameters("pfecha_nacimiento").Value = Me.MaskedNac.Text

cmdUpdate.Parameters.Add("pfecha_alta", OleDbType.Date, 7)
cmdUpdate.Parameters("pfecha_alta").Value = Me.Maskedalta.Text

cmdUpdate.Parameters.Add("pestado", OleDbType.Char, 1)
cmdUpdate.Parameters("pestado").Value = Trim(Me.ComboEstado.SelectedValue.ToString)

cmdUpdate.Parameters.Add("pestado_civil", OleDbType.Char, 1)
cmdUpdate.Parameters("pestado_civil").Value = Me.ComboCivil.SelectedValue.ToString

cmdUpdate.Parameters.Add("psexo", OleDbType.Char, 1)
cmdUpdate.Parameters("psexo").Value = Me.ComboCivil.SelectedValue.ToString

cmdUpdate.Parameters.Add("pfecha_presentacion", OleDbType.Date, 7)
cmdUpdate.Parameters("pfecha_presentacion").Value = Date.Today
Try
cmdUpdate.Connection = cn
cmdUpdate.ExecuteNonQuery()
Catch ex As Exception
MsgBox("no se realizaron los cambios en Cliente=" + ex.Message)

Exit Sub
End Try
End Sub

al ejecuar la linea ExecuteNonQuery() da este error : DB_E_BADTYPENAME(0x80040E30), espero me ayuden.Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar