dotNETportal.cz

Dobrý den

prosím o příklad jak je možné vykonat sql příkaz (insert nebo update) z VB v Excelu. Jedná se o databázi MS SQL.

Public Function ExecuteQuery(connectionString As String, insertCommand As String) 

Dim cnIS As ADODB.Connection 
Set cnIS = New ADODB.Connection 

cnIS.Open connectionString

???

cnIS.Close 
Set cnIS = Nothing 


End Function 

Toto je pre databázu Oracle. Skúste si to pretransfotmovať.

Dim rec As New ADODB.Recordset
Public Pripojenie As New ADODB.Connection
Pripojenie.ConnectionString = "Provider=MSDAORA;User ID=xxx;Password=xxx;Data Source=" & DataSource
selstring = "select ..."
  rec.Open selstring, Pripojenie, adOpenStatic, adLockReadOnly
   Do While Not rec.EOF
    Stanica = rec.Fields("NazovStanice").Value