
23/02/2007, 16:02
|
(Desactivado) | | Fecha de Ingreso: julio-2006
Mensajes: 273
Antigüedad: 18 años, 7 meses Puntos: 5 | |
les pido de su ayuda Bueno aca esta el problema
Imports System.Data.SqlClient
Public Class Form1
Inherits System.Windows.Forms.Form
Private oConexion As SqlConnection
Private oDataSet As DataSet
Private oDataAdapter As SqlDataAdapter
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Crea la conexion
oConexion = New SqlConnection()
oConexion.ConnectionString = "Server=(local);Database=General;uid=sa;pwd=;"
'Crea el adaptador
oDataAdapter = New SqlDataAdapter()
Dim oCmdInsercion As New SqlCommand("INSERT INTO Autores" & _
"(IDAutor,Autor) VALUES(@IDAutor,@Autor)", oConexion)
oDataAdapter.InsertCommand = oCmdInsercion
oDataAdapter.InsertCommand.Parameters.Add(New SqlParameter("@IDAutor", SqlDbType.Int))
oDataAdapter.InsertCommand.Parameters.Add(New SqlParameter("@Autor", SqlDbType.NVarChar))
Dim oCmdConsulta As New SqlCommand("SELECT * FROM Autores", oConexion)
oDataAdapter.SelectCommand = oCmdConsulta
oDataSet = New DataSet()
Me.CargaDatos()
End Sub
Private Sub CargaDatos()
'Vaciar el dataset
oDataSet.Clear() oConexion.Open()
oDataAdapter.Fill(oDataSet, "Autores")
oConexion.Close()
Me.grdDatos.DataSource = oDataSet
Me.grdDatos.DataMember = "Autores"
End Sub
End Class
me dice el siguiente error
Excepción no controlada del tipo 'System.Data.SqlClient.SqlException' en system.data.dll
Información adicional: Error del sistema.
claro que en VB.NET que he puesto o tengo de malo |