vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Mails senden, abrufen und decodieren - ganz easy ;-)  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

ADO.NET / Datenbanken
Re: ParameterCollection 
Autor: Imperator1980
Datum: 25.02.08 21:23

SO ich habe jetzt mal den kompletten Code soweit gekürzt und zusammengefasst wie es geht.
Wie gesagt, sobald ich die Zeile cmd.Parameters.Add.... kommt folgende Fehlermeldung:

Die OleDbCommand.Prepare-Methode erfordert, dass für alle Parameter explizit ein Typ festgelegt wird


Hier der COde:

Imports System.Data
Imports System.Data.OleDb
Public Class Form1

Dim da As New OleDbDataAdapter
'Dim ds As New DataSet
Dim ds As New DataTable
Dim cmb As New OleDbCommandBuilder(da)
Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=P:\INFO_BMK\Produktion\Daten-Access\Reparatur\reparatur_be_test.mdb")

Dim cmd As New OleDbCommand("", conn)


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'cmb.QuotePrefix = "["
'cmb.QuoteSuffix = "]"
Call filterakt()

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call filterakt()
End Sub
Private Sub DataGridView1_RowLeave(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.RowLeave
da.Update(ds)
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Call filterakt()
End Sub

Private Function filterakt()
Dim bulook As String = "BU1"
cmd.CommandText = "SELECT bmknummer, serviceStatus, bu, reparaturn_id, Eingangs_Datum, Testsystem, Kontron_Losnummer, " & _
"Ausgangs_Datum, Fehlercode, (Ausgangs_Datum - Eingangs_Datum) as Dauer " & _
"FROM reparaturen_tab " & _
"WHERE bu like 'bu1'" ' Das bu1 ist nur Testweise für @BULOOK drin



cmd.Parameters.Clear()
cmd.Parameters.AddWithValue("@bulook", Me.BU.Text)
da.SelectCommand = cmd
ds.Clear()
' DataSet befüllen
da.Fill(ds) 'öffnet und schließt connection von alleine
DataGridView1.DataSource = ds
' cmb.GetUpdateCommand()
filterakt = ""

End Function
Private Sub txtBMK_Nummer_Search_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtBMK_Nummer_Search.KeyDown
Select Case e.KeyCode
Case Keys.Enter
Call filterakt()
End Select
End Sub

End Class
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
ParameterCollection2.726Imperator198025.02.08 18:21
Re: ParameterCollection2.216spike2425.02.08 18:27
Re: ParameterCollection2.204Imperator198025.02.08 18:58
Re: ParameterCollection2.204raulic25.02.08 20:47
Re: ParameterCollection2.168Imperator198025.02.08 20:54
Re: ParameterCollection2.156Imperator198025.02.08 20:57
Re: ParameterCollection2.288Imperator198025.02.08 21:23
Re: ParameterCollection2.268Imperator198026.02.08 20:34
Re: ParameterCollection2.178Melkor26.02.08 20:49
Re: ParameterCollection2.170Imperator198026.02.08 21:15
Re: ParameterCollection2.186Melkor26.02.08 22:14
Re: ParameterCollection2.156Imperator198027.02.08 15:11
Re: ParameterCollection2.165raulic26.02.08 21:27
Re: ParameterCollection2.136Imperator198026.02.08 21:50
Re: ParameterCollection2.153Imperator198027.02.08 17:34
Re: ParameterCollection2.167Melkor27.02.08 18:17
Re: ParameterCollection2.134Imperator198027.02.08 19:20
Re: ParameterCollection2.177Melkor27.02.08 19:44
Re: ParameterCollection2.133Imperator198027.02.08 19:56
Re: ParameterCollection2.116Melkor27.02.08 20:36
Re: ParameterCollection2.129Imperator198027.02.08 20:41
Re: ParameterCollection2.149Melkor27.02.08 20:50
Re: ParameterCollection2.130Imperator198027.02.08 20:59
Re: ParameterCollection2.160Imperator198027.02.08 21:13
Re: ParameterCollection2.140raulic27.02.08 23:46
Re: ParameterCollection2.184Imperator198028.02.08 11:16

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel