imports system
imports system.data '引入數據類庫
imports system.data.sqlclient '引入sql server類庫（用來訪問sql server)
module module1
sub main()
addrecord() '增加記錄
removerecord() '刪除記錄
pause()
end sub
sub pause()
console.writeline("press enter to continue...")
console.readline()
end sub
sub addrecord()
'定義連接字符串
dim sconnectionstring as string _
= "user id=sa;initial catalog=pubs;data source=(local)"
'定義一個sql連接對象
dim objconn as new sqlconnection(sconnectionstring)
'連接對象
objconn.open()
'定義一個插入記錄命令字符
dim ssql as string = "insert into employee " & _
"(emp_id, fname, minit, lname, job_id, job_lvl, pub_id, hire_date)" & _
"values ('msd12923f', 'duncan', 'w', 'mackenzie', " & _
"10, 82,'0877','2001-01-01')"
dim objcmd as new sqlcommand(ssql, objconn)
try
objcmd.executenonquery() '執行插入動作
catch e as exception
console.writeline(e.message) '無法執行時提示出錯信息
end try
console.writeline("record added")
end sub
sub removerecord()
dim sconnectionstring as string _
= "user id=sa;initial catalog=pubs;data source=(local)"
dim objconn as new sqlconnection(sconnectionstring)
objconn.open()
dim ssql as string = "delete from employee where emp_id = @emp_id"
dim objcmd as new sqlcommand(ssql, objconn)
objcmd.parameters.add("@emp_id", sqldbtype.char, 9)
objcmd.parameters.item("@emp_id").value = "msd12923f"
try
objcmd.executenonquery()
console.writeline("record deleted")
catch e as exception
console.writeline(e.tostring)
end try
console.readline()
end sub
end module
