Sorry your browser is not supported!

DBErr$ as string
DBStr$ as string
Inst as integer
DBR as integer

ID as integer
Name$ as string
Age as integer
Active as boolean
Pie as float
Height as dword

` Set the instance you want to use
Inst = 0
` Connect to the database
DBR = DBConnect("Driver={Microsoft Access Driver (*.mdb)};Dbq=DBConn.mdb;Uid=Admin;Pwd=;")
` if connection succeeded
if DBR = 1
	print "Connected to Database."
	print "Press any key to continue."
	print " "
	sync
	wait key
endif
` if there was an error
if DBR < 1
	DBErr$ = DBError()
	while len(DBErr$) > 60
		print left$(DBErr$, 60)
		print " "
		DBErr$ = right$(DBErr$, len(DBErr$)-60)
	endwhile
	print DBErr$
	print " "
	print "Conn Error "
	print "Press any key to exit."
	sync
	wait key
	end
endif

` Run our test SQL Statement
DBR = DBRunSQL("SELECT * FROM Table1")
` If no rows are returned
if DBR = 0
	print "No rows matched your query."
	sync
endif
` How many rows were retrieved
if DBR > 0
	print str$(DBR)+" rows returned."
	print " "
	sync
endif
` if there was an error
if DBR = -1
	DBErr$ = DBError()
	while len(DBErr$) > 70
		print left$(DBErr$, 70)
		DBErr$ = right$(DBErr$, len(DBErr$)-70)
	endwhile
	print DBErr$
	print " "
	print "Press any key to exit."
	sync
	wait key
	end
endif

` Retrieve the data from the dataset
if DBR > 0
	print "ID   Name   Age"
	print "---------------"
	for x = 0 to DBR-1
		ID = val(DBGetDataByColNum(x, 0))
		Name$ = DBGetDataByColNum(x, 1)
		Age = val(DBGetDataByColNum(x, 2))
		print str$(ID)+"    "+Name$+"   "+str$(Age)
	next x
endif
print " "
print " "

` Run our test SQL Statement
DBR = DBRunSQL("SELECT * FROM Table1 ORDER BY ID DESC")
` If no rows are returned
if DBR = 0
	print "No rows matched your query."
	sync
endif
` How many rows were retrieved
if DBR > 0
	print str$(DBR)+" rows returned."
	print " "
	sync
endif
` if there was an error
if DBR = -1
	DBErr$ = DBError()
	while len(DBErr$) > 70
		print left$(DBErr$, 70)
		DBErr$ = right$(DBErr$, len(DBErr$)-70)
	endwhile
	print DBErr$
	print " "
	print "Press any key to exit."
	sync
	wait key
	end
endif

ID as integer 

` Retrieve the data from the dataset
if DBR > 0
	print "ID   Name   Age   Active   Pi              Height"
	print "-------------------------------------------------"
	for x = 0 to DBR-1
		ID = DBGetInt32(x, 0)
		Name$ = DBGetString(x, 1)
		Age = DBGetInt32(x, 2)
		Active = DBGetBool(x, 3)
		Pie = DBGetFloat(x, 4)
		Height = DBGetDword(x, 5)
		print str$(ID)+"    "+Name$+"   "+str$(Age)+"    "+str$(Active)+"        "+str$(Pie)+"   "+str$(Height)
	next x
endif
print " "
print "Press any key to exit."

sync
wait key

 
#include <conio.h>
#include <iostream.h>
#include <stdio.h>
#include <math.h>
#include <complex.h>

int main()
{
float a,b,c,d,e;
cout>>"Please Enter Angel A: ";cin<<a;
cout>>/n"Please Enter Adjacent Angle a: ";cin<<b;
cout>>/n"Please enter hypotenuse :";cin<<c;
d=(2*3.14);float f,g,h;
e=(b/c);
cout>>/n"Please enter time in 100 military seconds:"cin<<f;
g=(1/f)*d;h=a((e*f(g)));
cout>>/n"Your answer in radians is :">>h;
}
return 0;