I'm working with Visual Studio 2005 Express
I'm trying to insert values to my Database but I got this Error... {"Must declare the scalar variable "@folio"."}..
Can someone help me please.... I'm stuck
Imports
System.Data
Imports System.Data.OleDb
Public
Class frmEmpresaAlta
Dim Contador As Integer = 0
Dim coneccion As OleDbConnection
Dim comando As OleDbCommand
Dim adapter As OleDbDataAdapter
Dim DataSet As DataSet
Private Sub btnCancelar_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelar.Click
Me.Close()
End Sub
Private Sub btnGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGuardar.Click
Dim q As String
q =
"INSERT INTO Empresas(folio, empresa, corto, rfc, direccion, colonia) VALUES (@folio, @empresa, @corto, @rfc, @direccion, @colonia)"
comando =
New OleDbCommand(q, coneccion)
comando.Parameters.Add(
New OleDbParameter("@folio", OleDbType.Integer)).Value = lblFolio.Text
comando.Parameters.Add(
New OleDbParameter("@empresa", OleDbType.VarChar, 50)).Value = txtNombre.Text.ToUpper()
comando.Parameters.Add(
New OleDbParameter("@corto", OleDbType.VarChar, 12)).Value = txtCorto.Text.ToUpper()
comando.Parameters.Add(
New OleDbParameter("@rfc", OleDbType.VarChar, 10)).Value = txtRFC.Text.ToUpper()
comando.Parameters.Add(
New OleDbParameter("@direccion", OleDbType.VarChar, 40)).Value = txtDireccion.Text.ToUpper()
comando.Parameters.Add(
New OleDbParameter("@colonia", OleDbType.VarChar, 25)).Value = txtColonia.Text.ToUpper()
comando.Connection.Open()
comando.ExecuteNonQuery()
comando.Connection.Close()
MessageBox.Show(
"Empresa Almacenada")
Me.Close()
End Sub
Public Sub New()
' This call is required by the Windows Form Designer.
InitializeComponent()
' Add any initialization after the InitializeComponent() call.
coneccion =
New OleDbConnection("Provider=SQLNCLI;Server=WKS-SYSTEMAS\SQLExpress;AttachDbFilename=D:\faguilar Documents\VISUAL STUDIO 2005\Projects\Mantenimiento\Mantenimiento\Mantenimiento.mdf;Database=Mantenimiento;Trusted_Connection=Yes;")
adapter =
New OleDbDataAdapter("select * from Empresas", coneccion)
DataSet =
New DataSet()
adapter.Fill(DataSet,
"Empresas")
Dim cren, nvaclave As Integer
cren = DataSet.Tables(
"Empresas").Rows.Count
If (cren.Equals(0)) Then
lblFolio.Text =
"1"
Else
nvaclave = DataSet.Tables(
"Empresas").Rows(cren - 1)(0) + 1
lblFolio.Text = nvaclave
End If
txtNombre.Focus()
End Sub
End
Class