Gammon Forum

sub AddRecordTable (first, last, phone, notes)
dim db
Set db = CreateObject ("ADODB.Connection")

 ' Open the connection
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
          "Data Source=c:\mushclient\mydb.mdb"

db.Execute "INSERT INTO Contacts (FirstName, LastName," & _
      "Phone, Notes) VALUES (" & _
          """" & first & """, " & _
          """" & last & """, " & _
          """" & phone & """, " & _
          """" & notes & """ );"         

db.Close
Set db = Nothing
end sub

INSERT INTO Contacts (FirstName, LastName, Phone, Notes)
       VALUES ("John", "Smith", "7777 2222", "a person")

sub ShowRecords
dim db, rst
Set db = CreateObject ("ADODB.Connection")
Set rst = CreateObject ("ADODB.Recordset")

  ' Open the connection
  db.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
           "Data Source=c:\mushclient\mydb.mdb"

  ' Open the Recordset
  rst.Open "SELECT * FROM contacts", db

  ' display each record
  Do Until rst.EOF

    ' display each field      
    For Each fld In rst.Fields
       world.tell fld.Value & ";"
    Next

    world.note ""  ' newline

    rst.MoveNext
  
  Loop

db.Close

Set rst = Nothing
Set db = Nothing

end sub

mysql> explain event;
+----------+--------------+------+-----+------------+----------------+
| Field    | Type         | Null | Key | Default    | Extra          |
+----------+--------------+------+-----+------------+----------------+
| event_id | int(11)      |      | PRI | NULL       | auto_increment |
| edate    | date         |      |     | 0000-00-00 |                |
| etime    | time         | YES  |     | NULL       |                |
| comment  | varchar(255) |      |     |            |                |
+----------+--------------+------+-----+------------+----------------+

sub CreateTable2
dim db
Set db = CreateObject ("ADODB.Connection")

 ' Open the connection
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
          "Data Source=c:\mushclient\mydb.mdb"

db.Execute _
      "CREATE TABLE event (" & _
      "  event_id int NOT NULL IDENTITY," & _
      "  edate date NOT NULL," & _
      "  etime time default NULL," & _
      "  comment varchar(255) NOT NULL default ''," & _
      "  PRIMARY KEY  (event_id)" & _
      ")"

db.Close
Set db = Nothing
end sub

function find (name)
  dim names, walks 'Storing your location names and speed walks.
  names = split(world.getvariable("???"),",") 'What ever ones you use.
  walks = split(world.getvariable("???"),",")
  w
  fd = false
  st = 0
  en = ubound(record)
  do until fd or st = en
    cr = st + int((en-st)/2)
    if names(cr) > name then
      en = cr
    else if names(cr) < name then
      st = cr
    else
      fd = True
    end if
    if le = en and lst = st then 'Otherwise it goes forever if no match exists.
      exit do
    else
      lst = st
      le = en
    end if
  loop
  if fd then
    find = walks(cr)
  else
    find = "Unknown!" 'Check for this in the calling script (since sending it is pointless.) ;)
  end if
end function