3 Digite o seguinte para criar uma nova sub-rotina e declarar variáveis :
Public Sub createDataToAnalyze ()
Dim objConnection Como New ADODB.Connection
Dim objCom Como ADODB.Command
Dim provstr as String
4
Digite o seguinte para definir a conexão com o servidor SQL: < br > Definir
objCom = New ADODB.Command
objConnection.Provider = " sqloledb "
provstr = " Data Source = SERVERNAME , " & " Initial Catalog = NOME DATABASE ; User ID = ID do usuário; senha = senha; . "
Edite o " provstr " string e inserir as suas informações de conexão, como nome do servidor, nome do banco de dados , ID de usuário e senha
5 Tipo
o seguinte para definir suas informações procedimento armazenado: . .
objConnection.Open provstr
com objCom
ActiveConnection = objConnection
CommandText = " spCreateUserTbl " < . . br>
CommandType = adCmdStoredProc
Executar
End With End Sub
Edite a seguinte linha e digite o nome do procedimento armazenado : CommandText = " spCreateUserTbl "
6
Pressione " F5 "
. executar a sub-rotina.