Sección de códigos , trucos y ejemplos para visual basic

471 - Como conectar postgresql con vb

Código que sirve para conectarse con una base de datos en postgresql desde vb

Hola, no se si exista ya algún tema por ahi ,pero de tomas formas les dejo esto por si les llega a servir. Asi fue como lo resolví

Para conectar visual basic con el postgresql , primero tenemos que descargarnos el odbc del postgresql, el cual es el pgsql , eso lo puedes conseguir en la página de postgresql, una ves que lo descargas, lo instalas.

Cuando esta instalado, te vas a :

inicio-> panel de control -> herramientas administrativas->Origenes de datos ( odbc) -> y estando ahi le das agregar y de la lista que te aparece agregas el que diga POSTGRESQL , y te aparecera una ventana en la cual pondras, el nombre de tu base de datos, la contraseña del postgress, el nombre del super usuario y le das click en SAVE / Guardar.

Ya que hemos hecho lo anterior en nuestro codigo ponemos algo asi:

Option Explicit Dim usr, pwd, cad As String Dim X As Integer Public Sub validar_Click() 'checaremos ke el campo de usuario y contraseñ no esten vacios usr = Text1.Text pwd = Text2.Text usr = Trim(usr) pwd = Trim(pwd) If usr = "" Or pwd = "" Then MsgBox "Campo vacio", vbCritical Exit Sub Else 'checaremos si es un usario del sistema haremos la conexion de la base de datos ' Crear los objetos '----------------------------------------------------------- ' Dim cN As New ADODB.Connection Dim rs As New ADODB.Recordset Set cN = ConexionPOSTGRESQL_dsn 'haremos la cadena ke cheacara si el usuario existe en la bd sl_txt = "select * from personal where nombre= '" & _ usr & "' and pass='" & pwd & "'" rs.Open sl_txt, cN, adOpenStatic, adLockReadOnly il_total = rs.RecordCount If il_total > 0 Then Menu.Show inicio.Hide Else MsgBox "Usuario no identificado, checa tus datos", vbCritical Exit Sub End If rs.Close End If End Sub

Este pequeño ejemplo nos muestra una validacion para acceder a un sistema, si los datos de usuario y contraseña estan registrados en la base de datos, este abrirá la ventana MENU , de otra forma no hara nada.

Bueno espero que les sirva, bye y saludos. Erik

Relacionados

Ejemplos de bases de datos en vb

Buscar en Recursos vb