请教：：hamadou(闵峰)大哥代码中的一点问题。高手给指点下

2005-06-06 08:06:40 110 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

基于springboot+vue的摄影作品社区（项目源码）基于springboot+vue的摄影作品社区（项目源码）系统采用前后端分离的 B/S 架构。后端基于 Spring Boot 2.7.2 与 Java 1.8 构建，以 MyBatis-Plus 完成数据访问、PageHelper 实现分页，用 MySQL 8 存储业务数据；身份认证采用 Sa-Token 轻量级框架并整合 JWT 令牌，配合 Redis 实现图形验证码缓存与会话存储；前端使用 Vue 3 与 Naive UI 构建界面，由 Vite 完成构建，看板统计图表基于 ECharts 渲染。系统面向普通用户与管理员两类角色：用户端提供注册登录、作品上传与归档、多条件检索浏览、作品集管理、分类与标签管理、摄影圈专题、回收站、个人设置与公告查看等功能；管理端提供数据看板、用户管理与公告管理等功能。立即下载

Private ds As New DataSet()
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim cmd1 As New SqlCommand("select * from province", SqlCon)

“这里的sqlcon是什么？我用的是access库，总提示没有声明。我换过cn(cn="Provider=Microsoft.Jet.OLEDB.4.0;Data source=..\股票.mdb").可是提示类型“String”的值无法转换为“System.Data.SqlClient.SqlConnection”。高手指点啊

Dim cmd2 As New SqlCommand("select * from city", SqlCon)
Dim cmd3 As New SqlCommand("select * from county ", SqlCon)
Dim dpr1 As New SqlDataAdapter(cmd1)
Dim dpr2 As New SqlDataAdapter(cmd2)
Dim dpr3 As New SqlDataAdapter(cmd3)
dpr1.Fill(ds, "province")
dpr2.Fill(ds, "city")
dpr3.Fill(ds, "county")
Me.ComboBox1.DataSource = ds.Tables("province")
Me.ComboBox1.DisplayMember = "pname"
Me.ComboBox1.ValueMember = "pid"
setdata()
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
If Not Me.ComboBox1.Focus Then Exit Sub
setdata()
End Sub
Private Sub setdata()
Dim pid As Integer = Me.ComboBox1.SelectedValue
Dim view As New DataView(ds.Tables("city"), "pid=" & CStr(pid), "pid", DataViewRowState.CurrentRows)
If view.Count < 1 Then
Me.ComboBox2.DataSource = Nothing
Me.ComboBox2.Items.Clear()
Me.ComboBox2.SelectAll()
Me.ComboBox2.Focus()
SendKeys.Send("{delete}")

Else
Me.ComboBox2.DataSource = Nothing
Me.ComboBox2.DataSource = view
Me.ComboBox2.DisplayMember = "cname"
Me.ComboBox2.ValueMember = "cid"
End If

End Sub

...全文