Public CN As New ADODB.connection
Public rs As New ADODB.Recordset
Public Sub CON()
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & App.Path & "\Database1.mdb"
' so that you dont have to specify the whole drive path of your database
' database should be in the same folder as your app
.CursorLocation = adUseClient
Replace your Save button code with this.
Dim rstInfo As New ADODB.Recordset
Dim SQL As String
SQL = "SELECT * FROM List"
rstInfo.Open SQL, CN, adOpenStatic, adLockOptimistic
rstInfo!CustomerName = txtName.Text
rstInfo!ContactNumber = txtContact.Text
rstInfo!Date = txtDate.Text
rstInfo!TimeStart = txtStart.Text
rstInfo!TimeEnd = txtEnd.Text
rstInfo!Event = txtEvent.Text
rstInfo!PossibleNumberofGuest = txtGuest.Text
rstInfo!Comment = txtComment.Text
MsgBox "Record has been Saved", vbInformation
Set rstInfo = Nothing
Need some help with this Array. I am trying to get the sum of the even numbers and the sum of the odd numbers using a for each loop. I know the answers to what I am trying to achive are sum of even = 84 and the sum of ...
I have a 2d matrix with dimension (3, n) called A, I want to calculate the normalization and cross product of two arrays (b,z) (see the code please) for each column (for the first column, then the second one and so on).
the function that I created to find the ...