- Код: Выделить всё
Dim Parametr As Integer
Parametr = Environment.GetCommandLineArgs(1)
If Environment.GetCommandLineArgs.Length > 1 Then
If Equals(Environment.GetCommandLineArgs(1), Parametr) Then
Dim connStr As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=Parametrierungs DB.mdb;"
Dim myConnection As New OleDbConnection(connStr)
Dim mySelectQuery As String = "SELECT * FROM iLON100 WHERE (((iLON100.[Index iLON100])=1)"
В запросе SELECT в конце стоит параметр «1»?
Как в место «1» корректно подставить значение переменной Parametr.
Я подставлял, он говорит «Нет параметрa запроса»