Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails
' Client Data: Dim cnnClient As ADODB.Connection Dim sClientConnect As String Dim strClientSQL As String Dim rstClient As ADODB.Recordset ' SQL Data to be updated: Dim strSql As String Dim cmdUpdate As ADODB.Command Dim sSqlConnect As String ' Client side setup Set cnnClient = New ADODB.Connection sClientConnect = "(Some successful yet proprietary ODBC connection string here)" cnnClient.ConnectionString = sClientConnect strClientSQL = "Select * from ClientView" rstClient.Open strClientSQL, cnnClient, adOpenDynamic, adLockReadOnly ' SQL Data to be updated: Set cmdUpdate = New ADODB.Command sSqlConnect = "(Successful ODBC connection string here)" cmdUpdate.ActiveConnection = sSqlConnect ' Scroll through client data & update the SQL data: rstClient.MoveFirst Do strSql = "Update SqlTable Set Address = '" & rstClient.Fields("Address") & "' WHERE ClientID = '" & rstClient.Fields("CustNo") & "'" cmdUpdate.CommandText = strSql Loop While Not rstClient.EOF
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
12 Experts available now in Live!