elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Guía rápida para descarga de herramientas gratuitas de seguridad y desinfección


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Ayuda con conexion con Base de datos
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Ayuda con conexion con Base de datos  (Leído 1,523 veces)
Sakoda

Desconectado Desconectado

Mensajes: 9



Ver Perfil
Ayuda con conexion con Base de datos
« en: 11 Septiembre 2005, 20:49 pm »

Alguien q me ayude xfis lo q pasa es q deseaba hacer una aplicacion con la base de datos Pubs q viene en acces 2003 con la tabla Jobs y al tratar de ejecutar me sale un error y no se q puede ser alguien sabe pues aki les de jo el codigo y unas imagenes ojala me puedan ayudar ya q soy noob y x mas q releeo no encuentro el problema

Public Class Form1
    Inherits System.Windows.Forms.Form

    Dim dt As New DataTable
    Dim dv As New DataView
    Dim strcon As String = "database=Pubs;user id=sa"
    Dim strsql As String = "select * from jobs"
    Dim da As New SqlDataAdapter(strsql, strcon)
    Dim cb As New SqlCommandBuilder(da)
    Dim i As Integer
   
 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        da.Fill(dt)
        dt.TableName = "Empleos"
        dv.Table = dt
        DataGrid1.DataSource = dv
        da.InsertCommand = cb.GetInsertCommand
        da.DeleteCommand = cb.GetDeleteCommand
        da.UpdateCommand = cb.GetUpdateCommand
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim dr As DataRow = dt.NewRow
        dr("job_id") = txtjobid.Text
        dr("job_desc") = txtjobdesc.Text
        dr("min_lvl") = txtmin.Text
        dr("max_lvl") = txtmax.Text
        dt.Rows.Add(dr)
        da.Update(dt)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim r As Integer
        For r = 0 To dt.Rows.Count - 1
            If UCase(dt.Rows(r).Item("job_id")) = UCase(txtjobid.Text) Then
                dt.Rows(r).Delete()
                da.Update(dt)
                Exit Sub
            End If
        Next
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim r As Integer
        For r = 0 To dt.Rows.Count - 1
            If UCase(dt.Rows(r).Item("job_id")) = UCase(txtjobid.Text) Then
                dt.Rows(r).BeginEdit()
                dt.Rows(r).Item("job_desc") = txtjobdesc.Text
                dt.Rows(r).Item("min_lvl") = txtmin.Text
                dt.Rows(r).Item("max_lvl") = txtmax.Text
                dt.Rows(r).EndEdit()
                da.Update(dt)
                Exit Sub
            End If
        Next
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        dv.RowFilter = "job_id='" & txtjobid.Text & "'"
        txtjobdesc.Text = dv.Item(0).Item("job_desc")
        txtmin.Text = dv.Item(0).Item("min_lvl")
        txtmax.Text = dv.Item(0).Item("max_lvl")
    End Sub
End Class





En línea

Slasher-K


Desconectado Desconectado

Mensajes: 1.477


Ver Perfil
Re: Ayuda con conexion con Base de datos
« Respuesta #1 en: 13 Septiembre 2005, 00:46 am »

Seguramente error del controlador de bases de datos, intenta reinstalar los drivers del origen de datos.

Saludos.


En línea



A la reina de las profundidades que cuida los pasos de una sombra en la noche :*
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Ayuda con conexión a base de datos!
PHP
kodeone 3 2,327 Último mensaje 24 Febrero 2011, 17:38 pm
por kodeone
controlador para conexión base de datos db2
Java
KuraraGNU 0 4,486 Último mensaje 8 Marzo 2011, 12:16 pm
por KuraraGNU
Ayuda con conexión de base de datos !Urgente!
.NET (C#, VB.NET, ASP)
Brian1511 9 6,151 Último mensaje 28 Octubre 2012, 06:34 am
por .::IT::.
Ayuda en conexion a base de datos con java
Java
Dra25 5 2,389 Último mensaje 17 Abril 2015, 02:24 am
por Dra25
AYUDA error de conexion a base de datos
Java
silfer_1908 0 1,655 Último mensaje 9 Noviembre 2019, 01:27 am
por silfer_1908
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines