Visual Basic.NET - Ayuda con conexion

   
Vista:

Ayuda con conexion

Publicado por Ignacio (2 intervenciones) el 02/02/2009 22:07:59
Hola chicos , bueno tengo q, entregar en el instituto un programita q, conecte con una sola tabla (Autores) y en el form de la aplicacion ahy un par de etiquetas una datagrid View y un boton grabar.
ya escribi todo el codigo.
Y no conecta.
Aqui les dejo el codigo fuente y si alguien me puede ayudar muy agradecido, la verdad no encuentro el error , a mi me da el error 40.



'Empieza el codigo
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
'...
'...
'crear conexion.
oConexion = New SqlConnection()
oConexion.ConnectionString = "Server = (Local);DataBase=Musica;uid=sa;pwd=;"

'...
'...
'Crear adaptador.
odataAdapter = New SqlDataAdapter()
'...
'...
'Crear comandos para insercion, consulta con sus parametros,
'y asignarlos al adaptador.
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
'...
'...
'...
'Crear conjunto de datos desconectados (DataSet).
odataset = New DataSet()
Me.CargarDatos()
End Sub
Private Sub cargardatos()
'Vaciar el DataSet.
odataset.Clear()
'Abrir conexion.
oConexion.Open()
'...
'...
'Utilizar adaptador para llenar el DataSet con una tabla.
odataAdapter.Fill(odataset, "Autores")
'Cerrar conexion.
oConexion.Close()
'...
'...
'...
'...
'Enlazae el DataSet Con la DataGrid.
'En el DataSource se asigna el DataSet,
'en DataMember el nombre de la tabla del
'DataSet que mostrara el DataGrid.
Me.grdDatos.DataSource = odataset
Me.grdDatos.DataMember = "Autores"
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim iResultado As Integer
'...
'...
'...
'Asignar valores alos parametros para el comando de insercion.
odataAdapter.InsertCommand.Parameters("@IDAutor"). Value = Me.TxtIDAutor.Text
odataAdapter.InsertCommand.Parameters("@Autor").Va lue = Me.TxtAutor.Text
'...
'...
'...
'Abrir Conexion.
oConexion.Open()
'...
'...
'Ejecutar comando de insercion del adaptador.
iResultado = odataAdapter.InsertCommand.ExecuteNonQuery()
'Cerrar conexion.
oConexion.Close()
Me.cargardatos()
MessageBox.Show("Registros añadidos" & iResultado)

End Sub

Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtAutor.TextChanged

End Sub
End Class
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