Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: INSERT запрос с параметрами??? Добавлено: 23.04.03 19:12  

Автор вопроса:  Geo | ICQ: 81917030 
Есть recordset (из Access db) который построчно кидается в INSERT (в mySQL db). В этом insert'e надо сделать параметры, что бы вставить любые строки. Пришлите какой нить примерчик как этот параметр юзать.

Ответить

  Ответы Всего ответов: 1  

Номер ответа: 1
Автор ответа:
 hedgehog



ICQ: 175571327 

Вопросов: 15
Ответов: 207
  Web-сайт: ezh.ru
 Профиль | | #1 		Добавлено: 23.04.03 23:45

 Вот кусок кода который у меня загоняет рекордсет (вернее процедуру) с параметрами в массив. Переделай под свои нужды. Принципы использования параметров с ADO будут теми же

    Dim V() As Variant
    Dim i As Integer
   
    Dim Conn As New ADODB.Connection
    Dim Cmd As New ADODB.Command
    Dim Par As ADODB.Parameter
    Dim Rs As ADODB.Recordset
   
    Conn.Open locConnectionString
   
    Set Cmd.ActiveConnection = Conn
   
    Cmd.CommandText = ProcedureName
    Cmd.CommandType = adCmdStoredProc
   
    For i = 0 To UBound(locParameters)
       
        If locParameters(i).ParameterName = "" Then Exit For
       
        Set Par = Cmd.CreateParameter
       
        Par.Name = ParameterName
        Par.Type = Type 'ADO тип данных
        Par.Direction = adParamInput
        If Type = adVarWChar then
            Par.Size = Len(Value) 'имеет смысл для текста
        End If
        Par.Value = Value
       
        Cmd.Parameters.Append Par
        
    Next i
    
    Set Rs = New ADODB.Recordset
    Rs.Open Cmd
   
    If Not Rs.EOF Then
        V = Rs.GetRows
    Else
        ReDim V(0, 0)
    End If

 Get it!

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам