跪求大佬!!帮忙,vb编程连接到数据库,adapter.fill为什么会出错???

MCOLF 2017-11-23 12:23:14
代码如下
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim myconn As SqlConnection = New SqlConnection("database = 网上书店数据库;data source =.;integrated security=true;")
Dim mysql As String = "select customercode as 顾客编号,name as 姓名,sex as 性别 ,job as 职业,birthday as 出生日期,hometown as 籍贯,email as 邮箱,telephone as 手机号码,vipclass as 客户等级,loyaltyclass as 客户忠诚度 from customer where name like '%" & TextBox1.Text & "%'"
Dim myadapter As New SqlDataAdapter(mysql, myconn)
Dim mydataset As New DataSet
myadapter.Fill(mydataset, "customer")
DataGridView1.DataSource = mydataset.Tables(0)
End Sub
...全文
510 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
MCOLF 2018-07-13
  • 打赏
  • 举报
回复
感谢各位,已解决
赵4老师 2017-11-28
  • 打赏
  • 举报
回复
关于自己是否适合编程的很简单的测试: 在报纸或杂志上随便找一段约1000字的文章,在Word中输入一遍。输完后再参考下面答案: A里面有10处以上文字或标点错误 B里面没有文字或标点错误并敢为此跟人打赌 C里面没有文字或标点错误并且字体和排版完全与原稿一致 D打印在半透明的纸上和原稿重叠在一起检查一模一样,且自我感觉很有成就感 A不适合编程(理由:打字准确度偏低、粗心大意) B初级程序员(理由:打字准确度很高、认真细致、自信、理解全角半角概念) C高级程序员(理由:在B的基础上理解字体和排版也是电脑打印的重要因素、但相比D还不够偏执、精益求精、结果可验证) D软件项目经理(理由:能针对项目给出令人信服的细致到极点的需求说明和典型测试用例。用户几乎挑不出毛病。专业!) 如果想从A变成B的话,到我的资源http://download.csdn.net/detail/zhao4zhong1/4084259里面下载“适合程序员的键盘练习”
zdingyun 2017-11-23
  • 打赏
  • 举报
回复
引用 楼主 MCOLF 的回复:
代码如下 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim myconn As SqlConnection = New SqlConnection("database = 网上书店数据库;data source =.;integrated security=true;") Dim mysql As String = "select customercode as 顾客编号,name as 姓名,sex as 性别 ,job as 职业,birthday as 出生日期,hometown as 籍贯,email as 邮箱,telephone as 手机号码,vipclass as 客户等级,loyaltyclass as 客户忠诚度 from customer where name like '%" & TextBox1.Text & "%'" Dim myadapter As New SqlDataAdapter(mysql, myconn) Dim mydataset As New DataSet myadapter.Fill(mydataset, "customer") DataGridView1.DataSource = mydataset.Tables(0) End Sub
标点符号明显错误,既有单字节逗号,也有双字节逗号。 Dim mysql As String = "select customercode as 顾客编号,name as 姓名,sex as 性别 ,job as 职业,birthday as 出生日期,hometown as 籍贯,email as 邮箱,telephone as 手机号码,vipclass as 客户等级,loyaltyclass as 客户忠诚度 from customer where name like '%" & TextBox1.Text & "%'" 改用: Dim mysql As String = "select customercode as 顾客编号,name as 姓名,sex as 性别 ,job as 职业,birthday as 出生日期,hometown as 籍贯,email as 邮,telephone as 手机号码,vipclass as 客户等级,loyaltyclass as 客户忠诚度 from customer where name like '%" & TextBox1.Text & "%'"
X-i-n 2017-11-23
  • 打赏
  • 举报
回复
报的啥错???????????????????????????? 先说代码里能看出来的问题,你的sqlconnection没有open; 你想在fill的dataset的时候填充到一个不存在的datatable,我没有试过,可能会找不到可用对象,也可能会自动创建,不过本身sqldataadapter是可以fill到一个datatable的,如果没有特别的需求,datatable比dataset更方便。
Dim Datatable1 As New DataTable
myadapter.Fill(Datatable1)
DataGridView1.DataSource=Datatable1

7,762

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧