les pido de su ayuda

[eduardo90]

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

[programadorvip]

Iniciado por eduardo90

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

lo que yo me explico es porque haces la insercion en el evento load, sin antes haber enviado los datos respectivos para la inserccion.

[RootK]

para empezar la estructura que tienes está muy rara y no está bien hecha.

donde le estás pasando los values a tu insert ???

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))

donde está el valor de IDAutor y de Autor ??

te podría quedar mejor de ésta forma:

Código:

...
...
Dim oCmdInsercion As New SqlCommand("INSERT INTO Autores" & _
"(IDAutor,Autor) VALUES(@IDAutor,@Autor)", oConexion)
oCmdInsercion .Parameters.Add("@IDAutor", SqlDbType.Int, 4, valor)
oCmdInsercion .Parameters.Add("@Autor", SqlDbType.NVarChar, 20, valor)
oDataAdapter.InsertCommand  = oCmdInsercion 

Dim oCmdConsulta As New SqlCommand("SELECT * FROM Autores", oConexion)
oDataAdapter.SelectCommand = oCmdConsulta

oDataSet = New DataSet()
oDataAdapter.Fill(oDataSet, "Tabla")
Me.grdDatos.DataSource = oDataSet
Me.grdDatos.DataMember = "Tabla"

pruebalo y nos cuentas como te fue

Salu2