创建一个数据库bookmanager
添加两个数据表
图书信息表
用户表
打开VB,创建一个Windows应用程序
添加数据源
找到刚创建的数据库bookmanager,添加到项目里
创建一个PubFunction类
Imports System.Data.SqlClient
Public Class PubFunction
Public Function GetConnection() As SqlConnection
Return New SqlConnection(My.Settings.BookManagerConnectionString)
End Function
Public conn As SqlConnection
Public Function nonQuery(ByVal strsql As String) As Integer
conn = GetConnection()
'MsgBox(conn.ConnectionString)
Dim a As Integer = -1
Try
conn.Open()
Dim comm As SqlCommand = New SqlCommand(strsql, conn)
a = comm.Ex