当前位置:首页 » 编程语言 » vbsql管理系统

vbsql管理系统

发布时间: 2022-04-12 23:01:59

① 学生选修管理系统(vb+sql源代码)

Imports System.Data.SqlClient
Mole database
Public values As Integer
Public sql_conn As SqlConnection
Dim sql_comm As SqlCommand
Dim sql_dataadapter As SqlDataAdapter
Public mytable As DataTable
Dim conn_str As String
Dim sql_str As String Public Sub sql_exectute(ByVal sql_str As String)
conn_str = "Data Source=127.0.0.1;Initial Catalog=select_datebase;User ID=sa"
Try
sql_conn = New SqlConnection
sql_conn.ConnectionString = conn_str
sql_conn.Open() sql_comm = New SqlCommand
sql_comm.Connection = sql_conn
sql_comm.CommandType = CommandType.Text
sql_comm.CommandText = sql_str sql_dataadapter = New SqlDataAdapter
mytable = New DataTable
sql_dataadapter.SelectCommand = sql_comm
sql_dataadapter.Fill(mytable)
Catch ex As Exception
MessageBox.Show(ex.Message, "警告", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try sql_conn.Close()
End Sub
End Mole 这是连接sql数据库

② vb加SQL的管理信息系统

你在这谁说的清楚啊

③ vb+sql的学生信息管理系统

(1)学生信息管理系统

源代码?
(2)首先你要安装SQL数据库,如果之前已经安装则不用安装。

④ 用VB做数据库管理系统

Private Sub Add_Data() '增加记录 Data1.Recordset.AddNew End Sub Private Sub Delete_Data() '删除当前记录 If MsgBox("是否删除当前记录?", vbYesNo, "确认") = vbYes Then Data1.Recordset.Delete Data1.Recordset.MovePrevious End If End Sub Private Sub Find_Data() '查找指定学号的记录 Dim str_Find_Stuno As String str_Find_Stuno = InputBox("请输入学号:", "查找") Data1.Recordset.FindFirst "Stu_no = ' " & str_Find_Stuno & " ' " If Data1.Recordset.NoMatch = True Then MsgBox "对不起,没有您要查找的记录!" End If End Sub Private Sub Save_Data() '保存数据 Data1.UpdateRecord End Sub Private Sub Cancel_Data() '取消编辑数据 Data1.UpdateControls End Sub Private Sub Data1_Reposition() '显示当前记录所在位置 Data1.Caption = 1 + Data1.Recordset.AbsolutePosition & _ " of " & Data1.Recordset.RecordCount End Sub Private Sub Add_Click() '"增加"菜单命令 Add_Data End Sub Private Sub Delete_Click() '"删除"菜单命令 Delete_Data End Sub Private Sub Find_Click() '"查找"菜单命令 Find_Data End Sub Private Sub Save_Click() '"保存"菜单命令 Save_Data End Sub Private Sub Cancel_Click() '"取消"菜单命令 Cancel_Data End Sub Private Sub Exit_Click() '"退出"菜单命令 End End Sub

⑤ VB+SQL管理系统的问题~!

着个可以问我Q:119622068

⑥ VB+SQL超市管理系统

建议你学一下VB.NET2005,听说现在都用这个了。

⑦ vb+sql数据库管理系统问题

1.确定你换的另外那台电脑有没有安装SQL,并且是否建立(或还原)了相应数据库。
2.SQL数据库不论备份成什么文件,都是不能单独被VB调用的。
希望我的回答能提供给你相应信息。

⑧ 用VB和SQL做宿舍管理系统

我帮你

⑨ vb+sql的学生成绩管理系统

这个相对比较简单,详谈可以QQ 312221420

热点内容
安卓手机序列号a开头什么意思 发布:2025-09-17 02:59:26 浏览:686
机房电脑重装以后服务器不能识别 发布:2025-09-17 02:59:17 浏览:154
百度云服务器主机地址 发布:2025-09-17 02:59:17 浏览:52
dijkstra算法过程图解 发布:2025-09-17 02:50:46 浏览:310
怎么看自己我的世界服务器ip 发布:2025-09-17 02:39:43 浏览:896
abapsqlin 发布:2025-09-17 02:37:18 浏览:989
安卓手机怎么恢复ps的照片 发布:2025-09-17 02:14:22 浏览:419
android仿百度 发布:2025-09-17 02:12:53 浏览:604
木瓜奇迹脚本 发布:2025-09-17 01:54:25 浏览:410
小孩子脚本 发布:2025-09-17 01:52:07 浏览:686