vb mysql 插入记录_vb实现数据库的连接,修改,删除,插入(ADO.Net)
[vb]代码库Public Class 全部学生信息
Dim conn As New SqlConnection
Dim rs As New SqlDataAdapter
'Dim dt As New DataTable
Dim ds As New DataSet
Public Function connect_db() As SqlConnection
Dim constr As String
constr = "Server=PC-201105311336\SQLEXPRESS;uid=sa;pwd=123456;database=jiaxiaoai"
'rs.Fill(dataset, "student")
conn = New SqlConnection(constr)
conn.Open()
connect_db = conn
End Function
Private Sub 全部学生信息_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load '窗口初始化函数
Dim sql As String
Dim dt As New DataTable
sql = "select * from student"
conn = connect_db()
rs = New SqlDataAdapter(sql, conn)
conn.Close()
rs.Fill(dt) '填充表
DataGridView1.DataSource = dt '将表中的数据显示到datagridView控件中,绑定数据
DataGridView1.Columns(0).HeaderText = "学号" '设置列名
DataGridView1.Columns(1).HeaderText = "姓名"
DataGridView1.Columns(2).HeaderText = "年龄"
DataGridView1.Columns(3).HeaderText = "成绩"
rownum.Text = Str(DataGridView1.RowCount) '获取行数
xuehaotext.Text = DataGridView1.Rows(0).Cells(0).Value '获取datagridview中的某个值
nametext.Text = DataGridView1.Rows(0).Cells(1).Value
If (DataGridView1.Rows(0).Cells(2).Value = 0) Then
agetext.Text = ""
Else
agetext.Text = Str(DataGridView1.Rows(0).Cells(2).Value)
End If
If (DataGridView1.Rows(0).Cells(3).Value = 0) Then
scoretext.Text = ""
Else
scoretext.Text = Str(DataGridView1.Rows(0).Cells(3).Value)
End If
End Sub
Private Sub selectbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles selectbtn.Click
Dim sql As String
Dim dt As New DataTable
sql = "select * from student where name like 'l%'"
conn = connect_db()
rs = New SqlDataAdapter(sql, conn)
conn.Close()
rs.Fill(dt) '填充表
DataGridView1.DataSource = dt '将表中的数据显示到datagridView控件中,绑定数据
DataGridView1.Columns(0).HeaderText = "学号" '设置列名
DataGridView1.Columns(1).HeaderText = "姓名"
DataGridView1.Columns(2).HeaderText = "年龄"
DataGridView1.Columns(3).HeaderText = "成绩"
rownum.Text = Str(DataGridView1.RowCount) '获取行数
xuehaotext.Text = DataGridView1.Rows(0).Cells(0).Value '获取datagridview中的某个值
nametext.Text = DataGridView1.Rows(0).Cells(1).Value
If (DataGridView1.Rows(0).Cells(2).Value = 0) Then
agetext.Text = ""
Else
agetext.Text = Str(DataGridView1.Rows(0).Cells(2).Value)
End If
If (DataGridView1.Rows(0).Cells(3).Value = 0) Then
scoretext.Text = ""
Else
scoretext.Text = Str(DataGridView1.Rows(0).Cells(3).Value)
End If
End Sub
Private Sub DataGridView1_CellMouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles DataGridView1.CellMouseClick '鼠标点击单元格触发事件
'DataGridView1.CurrentRow.Index获取当前单元格的行号
xuehaotext.Text = DataGridView1.Rows(DataGridView1.CurrentRow.Index).Cells(0).Value '获取datagridview中的某个值
nametext.Text = DataGridView1.Rows(DataGridView1.CurrentRow.Index).Cells(1).Value
If (DataGridView1.Rows(DataGridView1.CurrentRow.Index).Cells(2).Value = 0) Then
agetext.Text = ""
Else
agetext.Text = Str(DataGridView1.Rows(DataGridView1.CurrentRow.Index).Cells(2).Value)
End If
If (DataGridView1.Rows(DataGridView1.CurrentRow.Index).Cells(3).Value = 0) Then
scoretext.Text = ""
Else
scoretext.Text = Str(DataGridView1.Rows(DataGridView1.CurrentRow.Index).Cells(3).Value)
End If
End Sub
Private Sub updatebtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles updatebtn.Click
Dim sql As String
Dim row As String
Dim dc As New SqlCommand
Dim age
If agetext.Text = "" Then
age = 0
Else
age = Val(agetext.Text)
End If
sql = "update student set sid='" & xuehaotext.Text & "', name='" & nametext.Text & "',age='" & age & "',score='" & scoretext.Text & "' where sid='" & DataGridView1.Rows(DataGridView1.CurrentRow.Index).Cells(0).Value & "'"
conn = connect_db()
dc = New SqlCommand(sql, conn)
row = dc.ExecuteNonQuery()
conn.Close()
If (row > 0) Then
MsgBox("修改成功")
Else
MsgBox("修改失败")
End If
DataGridView1.Rows(DataGridView1.CurrentRow.Index).Cells(0).Value = xuehaotext.Text
DataGridView1.Rows(DataGridView1.CurrentRow.Index).Cells(1).Value = nametext.Text
DataGridView1.Rows(DataGridView1.CurrentRow.Index).Cells(2).Value = agetext.Text
DataGridView1.Rows(DataGridView1.CurrentRow.Index).Cells(3).Value = scoretext.Text
End Sub
Private Sub insertbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles insertbtn.Click
Dim sql As String
Dim row As String
Dim dc As New SqlCommand
Dim age
If agetext.Text = "" Then
age = 0
Else
age = Val(agetext.Text)
End If
sql = "insert into student values('" & xuehaotext.Text & "', '" & nametext.Text & "','" & age & "','" & scoretext.Text & "')"
conn = connect_db()
dc = New SqlCommand(sql, conn)
row = dc.ExecuteNonQuery()
'conn.Close()
If (row > 0) Then
MsgBox("插入成功")
Else
MsgBox("插入失败")
End If
Dim dt As New DataTable
sql = "select * from student"
'conn = connect_db()
rs = New SqlDataAdapter(sql, conn)
conn.Close()
rs.Fill(dt) '填充表
DataGridView1.DataSource = dt '将表中的数据显示到datagridView控件中,绑定数据
DataGridView1.Columns(0).HeaderText = "学号" '设置列名
DataGridView1.Columns(1).HeaderText = "姓名"
DataGridView1.Columns(2).HeaderText = "年龄"
DataGridView1.Columns(3).HeaderText = "成绩"
rownum.Text = Str(DataGridView1.RowCount) '获取行数
xuehaotext.Text = DataGridView1.Rows(0).Cells(0).Value '获取datagridview中的某个值
nametext.Text = DataGridView1.Rows(0).Cells(1).Value
If (DataGridView1.Rows(0).Cells(2).Value = 0) Then
agetext.Text = ""
Else
agetext.Text = Str(DataGridView1.Rows(0).Cells(2).Value)
End If
If (DataGridView1.Rows(0).Cells(3).Value = 0) Then
scoretext.Text = ""
Else
scoretext.Text = Str(DataGridView1.Rows(0).Cells(3).Value)
End If
End Sub
Private Sub deletebtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles deletebtn.Click
Dim sql As String
Dim row As String
Dim dc As New SqlCommand
Dim age
If agetext.Text = "" Then
age = 0
Else
age = Val(agetext.Text)
End If
sql = "delete student where sid='" & DataGridView1.Rows(DataGridView1.CurrentRow.Index).Cells(0).Value & "'and name='" & DataGridView1.Rows(DataGridView1.CurrentRow.Index).Cells(1).Value & "'"
conn = connect_db()
dc = New SqlCommand(sql, conn)
row = dc.ExecuteNonQuery()
'conn.Close()
If (row > 0) Then
MsgBox("删除成功")
Else
MsgBox("删除失败")
End If
Dim dt As New DataTable
sql = "select * from student"
conn = connect_db()
rs = New SqlDataAdapter(sql, conn)
conn.Close()
rs.Fill(dt) '填充表
DataGridView1.DataSource = dt '将表中的数据显示到datagridView控件中,绑定数据
DataGridView1.Columns(0).HeaderText = "学号" '设置列名
DataGridView1.Columns(1).HeaderText = "姓名"
DataGridView1.Columns(2).HeaderText = "年龄"
DataGridView1.Columns(3).HeaderText = "成绩"
rownum.Text = Str(DataGridView1.RowCount) '获取行数
xuehaotext.Text = DataGridView1.Rows(0).Cells(0).Value '获取datagridview中的某个值
nametext.Text = DataGridView1.Rows(0).Cells(1).Value
If (DataGridView1.Rows(0).Cells(2).Value = 0) Then
agetext.Text = ""
Else
agetext.Text = Str(DataGridView1.Rows(0).Cells(2).Value)
End If
If (DataGridView1.Rows(0).Cells(3).Value = 0) Then
scoretext.Text = ""
Else
scoretext.Text = Str(DataGridView1.Rows(0).Cells(3).Value)
End If
End Sub
End Class
vb mysql 插入记录_vb实现数据库的连接,修改,删除,插入(ADO.Net)相关推荐
- MySQL学习记录 (一) ----- 有关数据库的基本概念和MySQL常用命令
相关文章: <MySQL学习记录 (一) ----- 有关数据库的基本概念和MySQL常用命令> <MySQL学习记录 (二) ----- SQL数据查询语句(DQL)> &l ...
- cmd命令窗口mysql查询表数据命令行_cmd 命令行模式操作数据库 添加查询 修改 删除 ( 表 字段 数据)...
一 查看数据库.表.数据字段.数据 1 首先配置环境变量 进入mysql 或者通过一键集成工具 打开mysql命令行 或者mysql 可视化工具 打开命令行 进入这样的界面 不同的机器操作不同 ...
- mysql的配置以及后端数据库的连接
mysql配置 上次配置好了tomcat,现在已经可以进行后端的编写了,但是看了很久,毕设需要的后端凑个数据库就够了,所以剩下的就是配置mysql了,前面听朋友说配置tomcat挺麻烦的,但是仔细看看 ...
- vb 与 .accdb 格式的access数据库的连接方法
在用vb连接access数据库时,出现了这样的错误: 这是你的数据库格式不被 程序识别.vb默认的一般是.,mdb access数据库格式!这时我们看一下我们要连接的 是.accdb 格式的. 看一 ...
- php .accdb,vb 与 .accdb 格式的access数据库的连接方法
在用vb 连接 access 数据库 时,出现了这样的错误: 这是你的 数据库 式不被 程序识别.vb默认的一般是.,mdb access 数据库 式!这时我们看一下我们要 连接 的 是.accdb ...
- 创建数据库表及修改删除数据表字段
创建数据库表 例: 目标:创建一个school数据库 创建学生表(列,字段) 使用SQL语句创建 要求:学号int.姓名varchar.密码varchar.生日datetime.家庭 ...
- vb mysql边记录边统计_vb6 数据库 增加记录
[转载]Web Services&XML:XML与HTML的结合(数据岛的应用) 目前,许多Web网站的内容数据都存放在数据库或数据文件中.对于Web程序开发人员来说,如果要想把有用的信息从数 ...
- vb.net mysql 实例教程_VB.net数据库编程(01):简单的入门实例
先来一个简单的实例. VB.net 2012 SQl server 2012 Access文件:http://download.csdn.net/detail/dzweather/5042992 (两 ...
- vb mysql边记录边统计_VB与Access连接,检索、核对、处理数据
Private Sub Command1_Click() '注册 Dim OldUserName, OName() As String If Text1.Text "" Then ...
最新文章
- 关于从Image字段读取图片流并显示在PictureBox控件时报‘参数无效’异常的解决方法...
- OpenAI探索机器人模拟训练新方法:仿真与真实世界无缝衔接
- python学习内容大全_python学习内容大全
- SEO是企业发展的永恒主题
- centos7.x 升级svn版本到指定版本(1.10)
- 为什么数组排序大写字母在前小写字母在后
- Codeforces 527C Glass Carving (最长连续0变形+线段树)
- python人脸识别框很小_人脸识别:从传统方法到深度学习
- 大学生助学贷款如何还利息(本金+利息都可以)
- 职场新人面试误区:我的技术好,所以你必须要请我?
- flat在java中的含义_Java 9中Collectors.flatMapping()方法的重要性?
- 推荐系统遇上深度学习(三十九)-推荐系统中召回策略演进!
- what's .NET
- python 当前时间的前一天_Python与Stata的数据交互
- emoji粉色爱心符号_特殊符号
- 如何将mac中的资料拷贝到U盘,移动硬盘(实用!!!)
- 树莓派4b自带wifi_树莓派4B(ubuntu)无线网络配置
- 轻量级分布式事务-自定义多数据源事务注解
- 世界四大汽车生产公司
- 线性代数学习笔记——第六十九讲——正交向量组与标准正交基
热门文章
- 2007级计算机技术专科毕业设计,2007级计算机科学与技术本科毕业设计选题
- mysql+5.6+左连接_第5章 索引与算法
- python利用字典实现大侠_python实现字符串和字典的转换
- idea 代码编译打包不报错,但是代码显示报错
- 经纬度转换为平面坐标
- 牛顿下山法c语言_数值计算(二十九)修正牛顿法I求解方程的根
- 关于单点登录的一些资料(转)
- php double 类型 浮点数相减
- Ocata:Packstack Ocata does not configure nova for placement API
- Codeforces Round #387 (Div. 2) 747F(数位DP)