| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 34816 人关注过本帖, 2 人收藏
标题:[分享] vb.net做的一套简单的图书管理系统原代码!适合菜鸟学习用
只看楼主 加入收藏
Viviwei
Rank: 6Rank: 6
等 级:贵宾
威 望:20
帖 子:344
专家分:0
注 册:2006-4-11
收藏
得分:0 

另外你的修改记录的代码建议你仔细的检查sql语句
可以先在sql查询分析器里检查是否能修改.


爱上思考,爱上编程,爱上.net!
2006-05-16 13:02
Viviwei
Rank: 6Rank: 6
等 级:贵宾
威 望:20
帖 子:344
专家分:0
注 册:2006-4-11
收藏
得分:0 

打印是一个空间,你只需要添加窗体就可以了.然后添加控件,再去调用这个窗口


爱上思考,爱上编程,爱上.net!
2006-05-16 13:04
wjh_36
Rank: 1
等 级:新手上路
帖 子:81
专家分:0
注 册:2006-5-10
收藏
得分:0 


我试试


2006-05-16 14:00
wjh_36
Rank: 1
等 级:新手上路
帖 子:81
专家分:0
注 册:2006-5-10
收藏
得分:0 
好拉

2006-05-16 14:20
wjh_36
Rank: 1
等 级:新手上路
帖 子:81
专家分:0
注 册:2006-5-10
收藏
得分:0 

嘿嘿

麻烦帮我看看那个问题啊

就是不能改数据库里记录的那个


2006-05-16 14:23
wjh_36
Rank: 1
等 级:新手上路
帖 子:81
专家分:0
注 册:2006-5-10
收藏
得分:0 

在一个TEXTBOX1.TEXT中输入日期以后通过查询在DATAGRID中显示,可我的怎么显示不出来啊



Dim conn As New SqlConnection
conn.ConnectionString = ConfigurationSettings.AppSettings("aa")
Dim cmd As New SqlCommand
Dim dr As New SqlDataAdapter
Dim ds As New DataSet

conn.Open()
cmd.CommandText = "select u_id as 编号,u_name as 姓名,u_sex as 性别,u_indate as 入学时间,u_zhy as 所学专业,u_dw as 所在单位 from info where u_indate='" & TextBox1.Text & "'"
cmd.Connection = conn
cmd.CommandType = CommandType.Text
dr.SelectCommand = cmd
dr.Fill(ds, "info")
DataGrid1.DataSource = ds.Tables("info")
DataGrid1.DataBind()
conn.Close()


2006-05-16 15:23
炫舞鱼
Rank: 1
等 级:新手上路
帖 子:85
专家分:0
注 册:2006-5-16
收藏
得分:0 
非常感谢~~
希望也有我会的能贡献大家
2006-05-16 20:11
Viviwei
Rank: 6Rank: 6
等 级:贵宾
威 望:20
帖 子:344
专家分:0
注 册:2006-4-11
收藏
得分:0 
查询后属于重新显示在datagrid控件上.
请在事件的最前方加入对上次查询结果的清空
例如:我输入日期在textbox1.text中,按buttoon1查询,结果显示在datagrid中
代码如下:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ds.Clear()
If conn.State = ConnectionState.Closed Then
conn.Open()
End If
cmd.CommandText = "select u_id as 编号,u_name as 姓名,u_sex as 性别,u_indate as 入学时间,u_zhy as 所学专业,u_dw as 所在单位 from info where u_indate='" & TextBox1.Text & "'"
cmd.Connection = conn
cmd.CommandType = CommandType.Text
dr.SelectCommand = cmd
dr.Fill(ds, "info")
DataGrid1.DataSource = ds.Tables("info")
DataGrid1.DataBind()
If conn.State = ConnectionState.Open Then
conn.Close()
End If
end sub

[此贴子已经被作者于2006-5-16 21:28:54编辑过]


爱上思考,爱上编程,爱上.net!
2006-05-16 21:20
Viviwei
Rank: 6Rank: 6
等 级:贵宾
威 望:20
帖 子:344
专家分:0
注 册:2006-4-11
收藏
得分:0 
关于你记录修改的原代码,实在是不好检查,毕竟我没有你的数据库,而你的错误多半的可能属于内部错误,
还是建议你好好检查sql语句是否有错误!!!`

爱上思考,爱上编程,爱上.net!
2006-05-16 21:22
wjh_36
Rank: 1
等 级:新手上路
帖 子:81
专家分:0
注 册:2006-5-10
收藏
得分:0 

好,谢谢啦


2006-05-17 10:31
快速回复:[分享] vb.net做的一套简单的图书管理系统原代码!适合菜鸟学习用
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.015008 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved